home |
step x = if 0 <= x then 1 else -1
*Main> step (-1) -1 *Main> step (-3) -1 *Main> step 2 1
caseTest x = case x of 1 -> 10; -1 -> -10; _ -> 0
caseTest x = case x of 1 -> 10 -1 -> -10 _ -> 0
*Main> caseTest (-1) -10 *Main> caseTest 0 0 *Main> caseTest 1 10 *Main> caseTest 2 0