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

Content added Content deleted

Inline

@@ Line 490: / 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}}==