Anti-primes: Difference between revisions
→The Function: Added ref to extensıble prıme generator
(Realize ın F#) |
(→The Function: Added ref to extensıble prıme generator) |
||
Line 115:
=={{header|F_Sharp|F#}}==
===The Function===
This task uses [http://www.rosettacode.org/wiki/Extensible_prime_generator#The_function Extensible Prime Generator (F#)]
<lang fsharp>
// Find Antı-Primes. Nigel Galloway: Secember 10th., 2018
Line 123 ⟶ 124:
let fL,_=Seq.concat(Seq.scan(fun n g->fE n (fG g)) (seq[(2147483647,1,1I)]) fI)|>List.ofSeq|>List.sortBy(fun(_,_,n)->n)|>List.fold(fun ((a,b) as z) (_,n,g)->if n>b then ((n,g)::a,n) else z) ([],0)
</lang>
===The Task===
<lang fsharp>
| |||