From 0cebe973a5d8c0c9d8a92f123f16ddad4b4676fe Mon Sep 17 00:00:00 2001 From: Francesco Minnocci Date: Wed, 4 May 2022 22:37:15 +0200 Subject: [PATCH] esperimenti --- esperimenti/Program.fs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/esperimenti/Program.fs b/esperimenti/Program.fs index 8b41b49..62620ca 100644 --- 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)