ABC words: Difference between revisions
Content added Content deleted
m (Typo.) |
|||
Line 256: | Line 256: | ||
tabernacle |
tabernacle |
||
tablecloth |
tablecloth |
||
</pre> |
|||
=={{header|Phix}}== |
|||
<lang Phix>function abc(string word) |
|||
sequence idii = apply(true,find,{"abc",{word}}) |
|||
return find(0,idii)==0 and idii==sort(idii) |
|||
end function |
|||
sequence words = filter(split_any(get_text("demo/unixdict.txt")," \r\n",no_empty:=true),abc) |
|||
printf(1,"%d abc words found: %s\n",{length(words),join(shorten(words,"",3),", ")})</lang> |
|||
{{out}} |
|||
<pre> |
|||
55 abc words found: aback, abacus, abc, ..., syllabic, tabernacle, tablecloth |
|||
</pre> |
</pre> |
||