You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
375 B
23 lines
375 B
module CasePractise where |
|
|
|
-- 1 |
|
functionC :: Ord a => a -> a -> a |
|
functionC x y = |
|
case (x > y) of |
|
True -> x |
|
False -> y |
|
|
|
-- 2 |
|
ifEvenAdd2 :: Integral a => a -> a |
|
ifEvenAdd2 n = |
|
case even n of |
|
True -> n + 2 |
|
False -> n |
|
|
|
-- 3 |
|
nums :: (Ord a, Num a) => a -> a |
|
nums x = |
|
case compare x 0 of |
|
LT -> -1 |
|
GT -> 1 |
|
EQ -> 0 |