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