Find words which contains all the vowels: Difference between revisions
Content added Content deleted
(Add Red) |
(Frink) |
||
Line 983: | Line 983: | ||
</lang> |
</lang> |
||
{{out}}<pre> |
{{out}}<pre> |
||
ambidextrous |
|||
bimolecular |
|||
cauliflower |
|||
communicable |
|||
communicate |
|||
consanguine |
|||
consultative |
|||
countervail |
|||
exclusionary |
|||
grandiloquent |
|||
importunate |
|||
incommutable |
|||
incomputable |
|||
insupportable |
|||
loudspeaking |
|||
malnourished |
|||
mensuration |
|||
oneupmanship |
|||
pandemonium |
|||
permutation |
|||
perturbation |
|||
portraiture |
|||
praseodymium |
|||
stupefaction |
|||
sulfonamide |
|||
</pre> |
|||
=={{header|Frink}}== |
|||
<lang frink> |
|||
for word = select[lines["https://web.archive.org/web/20180611003215if_/http://www.puzzlers.org:80/pub/wordlists/unixdict.txt"], {|x| length[x] > 10}] |
|||
{ |
|||
d = countToDict[charList[word]] |
|||
if d@"a" == 1 and d@"e" == 1 and d@"i" == 1 and d@"o" == 1 and d@"u" == 1 |
|||
println[word] |
|||
} |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
ambidextrous |
ambidextrous |
||
bimolecular |
bimolecular |