Fortunate numbers: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 100: | Line 100: | ||
373 379 383 397 401 409 419 421 439 443 |
373 379 383 397 401 409 419 421 439 443 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>firstPrimes: select 1..100 => prime? |
|||
primorial: function [n][ |
|||
product first.n: n firstPrimes |
|||
] |
|||
fortunates: [] |
|||
i: 1 |
|||
while [8 > size fortunates][ |
|||
m: 3 |
|||
pmi: primorial i |
|||
while [not? prime? m + pmi][m: m+2] |
|||
fortunates: unique fortunates ++ m |
|||
i: i + 1 |
|||
] |
|||
print sort fortunates</lang> |
|||
{{out}} |
|||
<pre>3 5 7 13 17 19 23 37</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |