From 3624c712d72d246f21d4e710cec7c11e052e0326 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 9 Dec 2025 16:32:32 +0100 Subject: Add the haskell book --- Haskell-book/07/src/GrabBag.purs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 Haskell-book/07/src/GrabBag.purs (limited to 'Haskell-book/07/src/GrabBag.purs') diff --git a/Haskell-book/07/src/GrabBag.purs b/Haskell-book/07/src/GrabBag.purs new file mode 100644 index 0000000..2967002 --- /dev/null +++ b/Haskell-book/07/src/GrabBag.purs @@ -0,0 +1,14 @@ +module GrabBags where + +import Data.Int (odd) +import Prelude + +-- 3 a) +addOneIfOdd :: Int -> Int +addOneIfOdd n = case odd n of + true -> f n + false -> n + where f = \k -> k + 1 + +addFive :: (Int -> (Int -> Int)) +addFive = \x -> \y -> (if x > y then y else x) + 5 -- cgit v1.2.3