Pinned

1. gistfile1.hs gistfile1.hs

   1

   -- Make a pattern to match the consonants and vowels in a word where a cons is

   2

   -- not "aeiou" or y preceded by a cons e.g., "happy" -> ("happy", "cvccv")

   3

   wordDesc :: String -> (String, String)

   4

   wordDesc str =

   5

       (str, [corv (a,b,i) | (a,b,i) <- zip3 str (rotateR str) [0..len]])

2. gistfile1.hs gistfile1.hs

   1

   rotateR :: [a] -> [a]

   2

   rotateR [x] = [x]

   3

   rotateR xs = last xs : init xs

3. gistfile1.py gistfile1.py

   1

   def cons(self, i):

   2

       """cons(i) is TRUE <=> b[i] is a consonant."""

   3

       if self.b[i] == 'a' or self.b[i] == 'e' or self.b[i] == 'i' or self.b[i] == 'o' or self.b[i] == 'u':

   4

           return 0

   5

       if self.b[i] == 'y':

4. gistfile1.hs gistfile1.hs

   1

   -- Make a pattern to match the consonants and vowels in a word where a cons is 

   2

   -- not "aeiou" or y preceded by a cons e.g., "happy" -> ("happy", "cvccv")

   3

   wordDesc :: String -> (String, String)

   4

   wordDesc str = (str, [corv (a,b,i) | (a,b,i) <- zip3 str (rotateR str) [0..len]])

   5

       where len = length str - 1

5. gistfile1.hs gistfile1.hs

   1

   rotateR :: [a] -> [a]

   2

   rotateR [x] = [x]

   3

   rotateR xs = last xs : init xs

6. gistfile1.hs gistfile1.hs

   1

   rotateR :: [a] -> [a]

   2

   rotateR [x] = [x]

   3

   rotateR xs = last xs : init xs

   4

   5

   -- Make a pattern to match the consonants and vowels in a word where a cons is