ABC words: Difference between revisions
→{{header|Phix}}
m (Typo.) |
|||
Line 256:
tabernacle
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>
| |||