esperimenti

3 years ago · 0cebe973a5
parent 777133c94a
commit 0cebe973a5
1 changed files with 3 additions and 0 deletions
--- a/esperimenti/Program.fs
+++ b/esperimenti/Program.fs
@ -21,3 +21,6 @@ printfn "%b" (isPippo(numOfStringsContainingAs [|"a";"a";"a";"a"|] |> numeroPipp
 printfn "%b" (isPippo(numOfStringsContainingAs [|"a";"a";"a"|] |> numeroPippo))
 printfn "%b" (isPippo(parolaPippo("pipo")))
 printfn "%b" (isPippo(parolaPippo("pippo")))
+
+let s = Seq.initInfinite (fun s -> s*s)
+Seq.toList (Seq.take 10 s)