Prime words: Difference between revisions
Content added Content deleted
m (added to Prime Numbers category.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
| Line 106: | Line 106: | ||
36: q |
36: q |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>words: read.lines relative "unixdict.txt" |
|||
loop words 'word [ |
|||
if every? split word 'ch -> prime? to :integer to :char ch -> |
|||
print word |
|||
]</lang> |
|||
{{out}} |
|||
<pre>a |
|||
aaa |
|||
age |
|||
agee |
|||
ak |
|||
am |
|||
ama |
|||
e |
|||
egg |
|||
eke |
|||
em |
|||
emma |
|||
g |
|||
ga |
|||
gag |
|||
gage |
|||
gam |
|||
game |
|||
gamma |
|||
ge |
|||
gee |
|||
gem |
|||
gemma |
|||
gm |
|||
k |
|||
keg |
|||
m |
|||
ma |
|||
mae |
|||
magma |
|||
make |
|||
mamma |
|||
me |
|||
meek |
|||
meg |
|||
q</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |
||