diff options
| author | Eugen Wissner <belka@caraus.de> | 2025-12-09 16:32:32 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2025-12-09 16:32:32 +0100 |
| commit | 3624c712d72d246f21d4e710cec7c11e052e0326 (patch) | |
| tree | f385cb51c72a0c5eeb2057609b75f5f8c6c4f272 /Haskell-book/07/src/GrabBag.purs | |
| parent | c95abc31d62e296db4f1b537e3de440dd40defd1 (diff) | |
| download | book-exercises-3624c712d72d246f21d4e710cec7c11e052e0326.tar.gz | |
Add the haskell book
Diffstat (limited to 'Haskell-book/07/src/GrabBag.purs')
| -rw-r--r-- | Haskell-book/07/src/GrabBag.purs | 14 |
1 files changed, 14 insertions, 0 deletions
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 |