Find words with alternating vowels and consonants: Difference between revisions

=={{header|11l}}==

{{trans|Nim}}

<lang 11l>V vowels = ‘aeiou’

V count = 0

L(word) File(‘unixdict.txt’).read().split("\n")

I word.len > 9

V first = word[0] C vowels

L(i) (2 .< word.len).step(2)

I (word[i] C vowels) != first

L.break

L.was_no_break

L(i) (1 .< word.len).step(2)

I (word[i] C vowels) == first

L.break

L.was_no_break

count++

print(word.rjust(14), end' I count % 7 == 0 {"\n"} E ‘ ’)

print()</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>