|
|
@ -21,3 +21,6 @@ printfn "%b" (isPippo(numOfStringsContainingAs [|"a";"a";"a";"a"|] |> numeroPipp
|
|
|
|
printfn "%b" (isPippo(numOfStringsContainingAs [|"a";"a";"a"|] |> numeroPippo))
|
|
|
|
printfn "%b" (isPippo(numOfStringsContainingAs [|"a";"a";"a"|] |> numeroPippo))
|
|
|
|
printfn "%b" (isPippo(parolaPippo("pipo")))
|
|
|
|
printfn "%b" (isPippo(parolaPippo("pipo")))
|
|
|
|
printfn "%b" (isPippo(parolaPippo("pippo")))
|
|
|
|
printfn "%b" (isPippo(parolaPippo("pippo")))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let s = Seq.initInfinite (fun s -> s*s)
|
|
|
|
|
|
|
|
Seq.toList (Seq.take 10 s)
|
|
|
|