Sequence of primes by trial division: Difference between revisions
Sequence of primes by trial division (view source)
Revision as of 10:12, 13 November 2017
, 6 years agoadd PicoLisp
Catskill549 (talk | contribs) |
(add PicoLisp) |
||
Line 1,474:
{2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97}
</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>(de prime? (N)
(or
(= N 2)
(and
(> N 1)
(bit? 1 N)
(let S (sqrt N)
(for (D 3 T (+ D 2))
(T (> D S) T)
(T (=0 (% N D)) NIL) ) ) ) ) )
(de primeseq (A B)
(filter prime? (range A B)) )
(println (primeseq 50 99))</lang>
{{out}}
<pre>(53 59 61 67 71 73 79 83 89 97)</pre>
=={{header|PowerShell}}==
| |||