Successive prime differences: Difference between revisions
Content added Content deleted
(Realize in F#) |
|||
Line 77: | Line 77: | ||
</pre> |
</pre> |
||
=={{header|F_Sharp|F#}}== |
|||
This task uses [http://www.rosettacode.org/wiki/Extensible_prime_generator#The_function Extensible Prime Generator (F#)] |
|||
<lang fsharp> |
|||
// Successive primes. Nigel Galloway: May 6th., 2019 |
|||
let sP n=let sP=pCache|>Seq.takeWhile(fun n->n<1000000)|>Seq.windowed(Array.length n+1)|>Seq.filter(fun g->g=(Array.scan(fun n g->n+g) g.[0] n)) |
|||
printfn "sP %A\t-> Min element = %A Max element = %A of %d elements" n (Seq.head sP) (Seq.last sP) (Seq.length sP) |
|||
List.iter sP [[|2|];[|1|];[|2;2|];[|2;4|];[|4;2|];[|6;4;2|]] |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
sP [|2|] -> Min element = [|3; 5|] Max element = [|999959; 999961|] of 8169 elements |
|||
sP [|1|] -> Min element = [|2; 3|] Max element = [|2; 3|] of 1 elements |
|||
sP [|2; 2|] -> Min element = [|3; 5; 7|] Max element = [|3; 5; 7|] of 1 elements |
|||
sP [|2; 4|] -> Min element = [|5; 7; 11|] Max element = [|999431; 999433; 999437|] of 1393 elements |
|||
sP [|4; 2|] -> Min element = [|7; 11; 13|] Max element = [|997807; 997811; 997813|] of 1444 elements |
|||
sP [|6; 4; 2|] -> Min element = [|31; 37; 41; 43|] Max element = [|997141; 997147; 997151; 997153|] of 306 elements |
|||
</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99}} |
{{works with|Factor|0.99}} |