Sequence of primes by trial division: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) |
(add PicoLisp) |
||
Line 1,474: | 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} |
{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> |
</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}}== |
=={{header|PowerShell}}== |