13 lines
214 B
Haskell
13 lines
214 B
Haskell
module Combinations where
|
|
|
|
import Control.Applicative (liftA3)
|
|
|
|
stops :: String
|
|
stops = "pbtdkg"
|
|
|
|
vowels :: String
|
|
vowels = "aeiou"
|
|
|
|
combos :: [a] -> [b] -> [c] -> [(a, b, c)]
|
|
combos = liftA3 (\x y z -> (x, y, z))
|