Prime words: Difference between revisions

=={{header|Phix}}==

<lang Phix>function sap(string word) return sum(apply(word,is_prime))==length(word) end function

printf(1,"%d prime words found: %s\n",{length(words),join(shorten(words,"",3),", ")})</lang>

{{out}}