Attractive numbers: Difference between revisions

Content added Content deleted
(Added Quackery.)
Line 323: Line 323:
=={{header|Arturo}}==
=={{header|Arturo}}==


<lang rebol>attractive?: function => [prime? size factors.prime &]
<lang rebol>attractive?: function [x] -> prime? size factors.prime x


print select 1..120 => attractive?</lang>
print select 1..120 => attractive?</lang>