module CasePractice where

import Data.Int (even)
import Prelude

-- Exercise 1
functionC :: forall a. Ord a => a -> a -> a
functionC x y = case (x > y) of
    true -> x
    false -> y

-- Exercise 2
isEvenAdd2 :: Int -> Int
isEvenAdd2 n = case even n of
    true -> n + 2
    false -> n

-- Exercise 3
nums :: Int -> Int
nums x =
    case compare x 0 of
         LT -> -1
         GT -> 1
         EQ -> 0