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