Piprimes: Difference between revisions
m
→{{header|F_Sharp|F#}}
(→{{header|ALGOL 68}}: Use ALGOL 68-primes) |
|||
Line 210:
=={{header|F_Sharp|F#}}==
<lang fsharp>▼
This task uses [http://www.rosettacode.org/wiki/Extensible_prime_generator#The_functions Extensible Prime Generator (F#)]
▲<lang fsharp>
// PiPrimes: Nigel Galloway. April 5th., 2021
let fN=let i=primes32() in Seq.unfold(fun(n,g,l)->Some(l,if n=g then (n+1,Seq.head i,l+1) else (n+1,g,l)))(1,Seq.head i,0)
| |||