From 98329e0a3dd4f78b5d815ac3896272ec70904901 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 11 Dec 2025 10:28:11 +0100 Subject: Add remaining haskell book exercises --- Haskell-book/22/WarmingUp.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Haskell-book/22/WarmingUp.hs (limited to 'Haskell-book/22/WarmingUp.hs') 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))) -- cgit v1.2.3