Add remaining haskell book exercises

1 files changed, 21 insertions, 0 deletions

diff --git a/Haskell-book/22/WarmingUp.hs b/Haskell-book/22/WarmingUp.hs
new file mode 100644
index 0000000..b8dd194
--- /dev/null
+++ b/Haskell-book/22/WarmingUp.hs
@@ -0,0 +1,21 @@
+module WarmingUp where
+
+import Data.Char
+
+cap :: [Char] -> [Char]
+cap xs = map toUpper xs
+
+rev :: [Char] -> [Char]
+rev xs = reverse xs
+
+composed :: [Char] -> [Char]
+composed = cap . rev
+
+fmapped :: [Char] -> [Char]
+fmapped = fmap cap rev
+
+tupled :: [Char] -> ([Char], [Char])
+tupled = (,) <$> composed <*> fmapped
+
+tupled' :: [Char] -> ([Char], [Char])
+tupled' = composed >>= (\x -> fmapped >>= (\y -> return (x, y)))