Find words which contains all the vowels: Difference between revisions
Find words which contains all the vowels (view source)
Revision as of 11:49, 1 June 2021
, 3 years agoAdded Arturo implementation
(Ada version) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 122:
25: sulfonamide
</pre>
=={{header|Arturo}}==
<lang rebol>words: read.lines relative "unixdict.txt"
vowels: ["a" "e" "i" "o" "u"]
containsAllVowels?: function [w][
loop vowels 'v [
if not? contains? w v -> return false
if 1 < size match w v -> return false
]
return true
]
loop words 'word [
if 10 < size word [
if containsAllVowels? word ->
print word
]
]</lang>
{{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|AWK}}==
<lang AWK>
| |||