Find words which contains all the vowels: Difference between revisions

Content added Content deleted

Inline

@@ Line 122: / Line 122: @@
 : sulfonamide
 </pre>
+=={{header|Arturo}}==
+<lang rebol>words: read.lines relative "unixdict.txt"
+vowels: ["a" "e" "i" "o" "u"]
+containsAllVowels?: function [w][
+    loop vowels 'v [
+        if not? contains? w v -> return false
+        if 1 < size match w v -> return false
+    ]
+    return true
+]
+loop words 'word [
+    if 10 < size word [
+        if containsAllVowels? word ->
+            print word
+    ]
+]</lang>
+{{out}}
+<pre>ambidextrous
+bimolecular
+cauliflower
+communicable
+communicate
+consanguine
+consultative
+countervail
+exclusionary
+grandiloquent
+importunate
+incommutable
+incomputable
+insupportable
+loudspeaking
+malnourished
+mensuration
+oneupmanship
+pandemonium
+permutation
+perturbation
+portraiture
+praseodymium
+stupefaction
+sulfonamide</pre>
 =={{header|AWK}}==
 <lang AWK>