RosettaCodeData/Task/Long-primes/F-Sharp/long-primes-9.fs
2023-07-01 13:44:08 -04:00

1 line
147 B
FSharp

printfn "There are %d long primes less than 32000" (primes |> Seq.skip 3 |> Seq.takeWhile(fun n->n<32000) |> Seq.filter isLongPrime |> Seq.length)