Prime words: Difference between revisions
Added Arturo implementation
m (added to Prime Numbers category.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 106:
36: q
</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}}==
<lang AWK>
| |||