fay-0.16.0.0: tests/guards.hs

import Prelude

f n | n <= 0 = 0
    | n >= 10 = 11
f n          = n + 1

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