Find words with alternating vowels and consonants: Difference between revisions

← Older edit Newer edit →

Content deleted Content added

Inline

@@ Line 6: / Line 6: @@
 The length of any word shown should have a length &nbsp; <big>'''> 9</big>.
+=={{header|Factor}}==
+{{works with|Factor|0.99 2020-08-14}}
+<lang factor>USING: grouping.extras io.encodings.ascii io.files kernel math
+prettyprint sequences ;
+"unixdict.txt" ascii file-lines
+[ length 9 > ] filter
+[ dup [ "aeiou" member? ] group-by [ length ] bi@ = ] filter .</lang>
+{{out}}
+<pre style="height:20em">
+{
+    "aboriginal"
+    "apologetic"
+    "bimolecular"
+    "borosilicate"
+    "calorimeter"
+    "capacitate"
+    "capacitive"
+    "capitoline"
+    "capitulate"
+    "caricature"
+    "colatitude"
+    "coloratura"
+    "colorimeter"
+    "debilitate"
+    "decelerate"
+    "decolonize"
+    "definitive"
+    "degenerate"
+    "deliberate"
+    "demodulate"
+    "denominate"
+    "denotative"
+    "deregulate"
+    "desiderata"
+    "desideratum"
+    "dilapidate"
+    "diminutive"
+    "epigenetic"
+    "facilitate"
+    "hemosiderin"
+    "heretofore"
+    "hexadecimal"
+    "homogenate"
+    "inoperative"
+    "judicature"
+    "latitudinal"
+    "legitimate"
+    "lepidolite"
+    "literature"
+    "locomotive"
+    "manipulate"
+    "metabolite"
+    "nicotinamide"
+    "oratorical"
+    "paragonite"
+    "pejorative"
+    "peridotite"
+    "peripatetic"
+    "polarimeter"
+    "recitative"
+    "recuperate"
+    "rehabilitate"
+    "rejuvenate"
+    "remunerate"
+    "repetitive"
+    "reticulate"
+    "savonarola"
+    "similitude"
+    "solicitude"
+    "tananarive"
+    "telekinesis"
+    "teratogenic"
+    "topologize"
+    "unilateral"
+    "unimodular"
+    "uninominal"
+    "verisimilitude"
+}
+</pre>
 =={{header|Julia}}==