Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
(Realize in F#) |
m (→{{header|F_Sharp|F#}}: add </lang> tag to separate F# and Factor entries again) |
||
| Line 107: | Line 107: | ||
let fN=Seq.unfold(fun(n,g)->Some((n,g),((n*g),(g+1I))))(1I,2I)|>Seq.filter wP |
let fN=Seq.unfold(fun(n,g)->Some((n,g),((n*g),(g+1I))))(1I,2I)|>Seq.filter wP |
||
fN|>Seq.take 120|>Seq.iter(fun(_,n)->printf "%A " n);printfn "\n" |
fN|>Seq.take 120|>Seq.iter(fun(_,n)->printf "%A " n);printfn "\n" |
||
fN|>Seq.skip 999|>Seq.take 15|>Seq.iter(fun(_,n)->printf "%A " n);printfn "" |
fN|>Seq.skip 999|>Seq.take 15|>Seq.iter(fun(_,n)->printf "%A " n);printfn ""</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
| Line 114: | Line 114: | ||
7919 7927 7933 7937 7949 7951 7963 7993 8009 8011 8017 8039 8053 8059 8069 |
7919 7927 7933 7937 7949 7951 7963 7993 8009 8011 8017 8039 8053 8059 8069 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99 2019-10-06}} |
{{works with|Factor|0.99 2019-10-06}} |
||