Find words with alternating vowels and consonants: Difference between revisions

← Older edit Newer edit →

Content deleted Content added

Inline

@@ Line 210: / Line 210: @@
     "verisimilitude"
 }
+</pre>
+=={{header|Go}}==
+<lang go>package main
+import (
+    "bytes"
+    "fmt"
+    "io/ioutil"
+    "log"
+    "strings"
+    "unicode/utf8"
+)
+func isVowel(c rune) bool { return strings.ContainsRune("aeiou", c) }
+func main() {
+    wordList := "unixdict.txt"
+    b, err := ioutil.ReadFile(wordList)
+    if err != nil {
+        log.Fatal("Error reading file")
+    }
+    bwords := bytes.Fields(b)
+    var words []string
+    for _, bword := range bwords {
+        s := string(bword)
+        if utf8.RuneCountInString(s) > 9 {
+            words = append(words, s)
+        }
+    }
+    count := 0
+    fmt.Println("Words with alternate consonants and vowels in", wordList, "\b:\n")
+    for _, word := range words {
+        found := true
+        for i, c := range word {
+            if (i%2 == 0 && isVowel(c)) || (i%2 == 1 && !isVowel(c)) {
+                found = false
+                break
+            }
+        }
+        if !found {
+            found = true
+            for i, c := range word {
+                if (i%2 == 0 && !isVowel(c)) || (i%2 == 1 && isVowel(c)) {
+                    found = false
+                    break
+                }
+            }
+        }
+        if found {
+            count++
+            fmt.Printf("%2d: %s\n", count, word)
+        }
+    }
+}</lang>
+{{out}}
+<pre style="height:36em">
+Words with alternate consonants and vowels in unixdict.txt:
+: 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>