Pernicious numbers: Difference between revisions
Added Arturo implementation
m (→Python :: Functional: Tidying) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 320:
888888877 888888878 888888880 888888883 888888885 888888886
</pre>
=={{header|Arturo}}==
<lang rebol>pernicious?: function [n][
prime? size filter split as.binary n 'x -> x="0"
]
i: 1
found: 0
while [found<25][
if pernicious? i [
prints i
prints " "
found: found + 1
]
i: i + 1
]
print ""
print select 888888877..888888888 => pernicious?</lang>
{{out}}
<pre>3 5 6 7 9 10 11 12 13 14 17 18 19 20 21 22 24 25 26 28 31 33 34 35 36
888888877 888888878 888888880 888888883 888888885 888888886</pre>
=={{header|AutoHotkey}}==
|