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

Content added Content deleted

Inline

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