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

1 line
145 B
FSharp

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