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