Find words which contains more than 3 e vowels: Difference between revisions

Add Snobol
(Add Python)
(Add Snobol)
Line 490:
done...
</pre>
 
=={{header|Snobol}}==
<lang snobol> input(.words, 1,, 'unixdict.txt') :s(line)
output = 'Error!' :(end)
line word = words :f(end)
word 'a' | 'i' | 'o' | 'u' :s(line)
word 'e' arb 'e' arb 'e' arb 'e' :f(line)
output = word :(line)
end</lang>
 
{{out}}
 
<pre>belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee</pre>
 
=={{header|Wren}}==
2,124

edits