Haskell-book/17/Combinations.hs


1
2
3
4
5
6
7
8
9
10
11
12

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))