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 18:32, 28 December 2021
, 2 years agoAdd Red
No edit summary |
(Add Red) |
||
Line 1,257:
Salamanca
Vâsaphantâ</pre>
=={{header|Red}}==
<lang rebol>Red[]
words: read/lines %unixdict.txt
forbidden: charset "aiou"
foreach word words [
e's: 0
retain: yes
foreach char word [
if find forbidden char [retain: no break]
if #"e" = char [e's: e's + 1]
]
if all [retain e's > 3] [print word]
]</lang>
{{out}}
<pre>
belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee
</pre>
=={{header|REXX}}==
| |||