Find words with alternating vowels and consonants: Difference between revisions
Content added Content deleted
m (→{{header|Ada}}) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 563: | Line 563: | ||
unimodular uninominal verisimilitude veterinary |
unimodular uninominal verisimilitude veterinary |
||
vocabulary </pre> |
vocabulary </pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>words: read.lines relative "unixdict.txt" |
|||
vowels: [`a` `e` `i` `o` `u`] |
|||
alternatingVC?: function [w][ |
|||
lookForConsonant: true |
|||
if contains? vowels first w -> lookForConsonant: false |
|||
loop w 'c [ |
|||
if xnor? lookForConsonant |
|||
contains? vowels c -> return false |
|||
lookForConsonant: not? lookForConsonant |
|||
] |
|||
return true |
|||
] |
|||
loop words 'word [ |
|||
if 9 < size word [ |
|||
if alternatingVC? word -> |
|||
print word |
|||
] |
|||
]</lang> |
|||
{{out}} |
|||
<pre>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|AWK}}== |
=={{header|AWK}}== |