Prime words: Difference between revisions
Content added Content deleted
(Added Algol 68) |
m (→{{header|Phix}}: use GT_LF_STRIPPED) |
||
Line 347: | Line 347: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
<lang Phix>function sap(string word) return sum(apply(word,is_prime))==length(word) end function |
<lang Phix>function sap(string word) return sum(apply(word,is_prime))==length(word) end function |
||
sequence words = filter |
sequence words = filter(get_text("demo/unixdict.txt",GT_LF_STRIPPED),sap) |
||
printf(1,"%d prime words found: %s\n",{length(words),join(shorten(words,"",3),", ")})</lang> |
printf(1,"%d prime words found: %s\n",{length(words),join(shorten(words,"",3),", ")})</lang> |
||
{{out}} |
{{out}} |