fay-0.19: tests/guards.hs

module Guards where

f :: Int -> Int
f n | n <=  0 = 0
    | n >= 10 = 11
f n          = n + 1

g :: Int -> Int
g n = case n of
  n | n <= 0 -> 0
    | n >= 10 -> 11
  n -> n + 1

main = do
  print $ f (-1)
  print $ f 12
  print $ f 1

  print $ g (-1)
  print $ g 12
  print $ g 1