Find words which contains more than 3 e vowels: Difference between revisions
Find words which contains more than 3 e vowels (view source)
Revision as of 12:16, 1 June 2021
, 2 years agoAdded Arturo implementation
(Ada version) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 199:
16: tennessee (4)
</pre>
=={{header|Arturo}}==
<lang rebol>words: read.lines relative "unixdict.txt"
otherVowels: ["a" "i" "o" "u"]
containsMoreThan3Es?: function [w][
if 4 > size match w "e" -> return false
loop otherVowels 'v [
if contains? w v -> return false
]
return true
]
loop words 'word [
if containsMoreThan3Es? word ->
print word
]</lang>
{{out}}
<pre>belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee</pre>
=={{header|AWK}}==
|