1 files changed, 12 insertions, 0 deletions
diff --git a/Haskell-book/17/Combinations.hs b/Haskell-book/17/Combinations.hs
new file mode 100644
index 0000000..9e13e1e
--- /dev/null
+++ b/Haskell-book/17/Combinations.hs
@@ -0,0 +1,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))