Add sumDivisors and peterson implementation

2022-05-14 20:27:29 +02:00
parent 826b37d405
commit 7d9c4a6d3e
6 changed files with 155 additions and 161 deletions
@@ -23,4 +23,4 @@ printfn "%b" (isPippo(parolaPippo("pipo")))
 printfn "%b" (isPippo(parolaPippo("pippo")))

 let s = Seq.initInfinite (fun s -> s*s)
-Seq.toList (Seq.take 10 s)
+printfn "%A" (Seq.toList (Seq.take 10 s))