Find words with alternating vowels and consonants: Difference between revisions

</pre>

=={{header|Wren}}==

{{libheader|Wren-fmt}}

<lang ecmascript>import "io" for File

import "/fmt" for Fmt

var isVowel = Fn.new { |c| "aeiou".contains(c) }

var wordList = "unixdict.txt" // local copy

var words = File.read(wordList).trimEnd().split("\n").where { |w| w.count > 9 }

var count = 0

System.print("Words with alternate consonants and vowels in %(wordList):\n")

for (word in words) {

var found = true

for (i in 0...word.count) {

var c = word[i]

if ((i%2 == 0 && isVowel.call(c)) || (i%2 == 1 && !isVowel.call(c))) {

found = false

break

}

}

if (!found) {

found = true

for (i in 0...word.count) {

var c = word[i]

if ((i%2 == 0 && !isVowel.call(c)) || (i%2 == 1 && isVowel.call(c))) {

found = false

break

}

}

}

if (found) {

count = count + 1

Fmt.print("$2d: $s", count, word)

}

}</lang>

{{out}}

<pre style="height:36em">

Words with alternate consonants and vowels in unixdict.txt:

1: aboriginal

2: apologetic

3: bimolecular

4: borosilicate

5: calorimeter

6: capacitate

7: capacitive

8: capitoline

9: capitulate

10: caricature

11: colatitude

12: coloratura

13: colorimeter

14: debilitate

15: decelerate

16: decolonize

17: definitive

18: degenerate

19: deliberate

20: demodulate

21: denominate

22: denotative

23: deregulate

24: desiderata

25: desideratum

26: dilapidate

27: diminutive

28: epigenetic

29: facilitate

30: hemosiderin

31: heretofore

32: hexadecimal

33: homogenate

34: inoperative

35: judicature

36: latitudinal

37: legitimate

38: lepidolite

39: literature

40: locomotive

41: manipulate

42: metabolite

43: nicotinamide

44: oratorical

45: paragonite

46: pejorative

47: peridotite

48: peripatetic

49: polarimeter

50: recitative

51: recuperate

52: rehabilitate

53: rejuvenate

54: remunerate

55: repetitive

56: reticulate

57: savonarola

58: similitude

59: solicitude

60: tananarive

61: telekinesis

62: teratogenic

63: topologize

64: unilateral

65: unimodular

66: uninominal

67: verisimilitude