Prime words: Difference between revisions
Content added Content deleted
No edit summary |
Catskill549 (talk | contribs) |
||
Line 105: | Line 105: | ||
35: meg |
35: meg |
||
36: q |
36: q |
||
</pre> |
|||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f PRIME_WORDS.AWK unixdict.txt |
|||
BEGIN { |
|||
for (i=0; i<=255; i++) { |
|||
if (is_prime(i)) { |
|||
prime_chars = sprintf("%s%c",prime_chars,i) |
|||
} |
|||
} |
|||
pattern = sprintf("^[%s]+$",prime_chars) |
|||
} |
|||
{ if ($0 ~ pattern) { |
|||
printf("%s ",$0) |
|||
} |
|||
} |
|||
END { |
|||
printf("\n") |
|||
exit(0) |
|||
} |
|||
function is_prime(x, i) { |
|||
if (x <= 1) { |
|||
return(0) |
|||
} |
|||
for (i=2; i<=int(sqrt(x)); i++) { |
|||
if (x % i == 0) { |
|||
return(0) |
|||
} |
|||
} |
|||
return(1) |
|||
} |
|||
</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> |
</pre> |
||