Project Euler Problem #7
let naturals = Seq.unfold (fun i -> Some(i, i + 1))
let primes =
naturals 2 |> Seq.filter (fun n ->
seq { 2..int (sqrt (float n)) }
|> Seq.forall (fun x -> n % x <> 0))
Seq.nth 10000 primes
Ezt a böngészőt már nem támogatjuk.
Frissítsen a Microsoft Edge-re, hogy kihasználhassa a legújabb funkciókat, a biztonsági frissítéseket és a technikai támogatást.
let naturals = Seq.unfold (fun i -> Some(i, i + 1))
let primes =
naturals 2 |> Seq.filter (fun n ->
seq { 2..int (sqrt (float n)) }
|> Seq.forall (fun x -> n % x <> 0))
Seq.nth 10000 primes