liquidhaskell-0.4.0.0: tests/pos/Ackermann.hs

module Ackermann () where

{-@ ack :: m:Nat -> n:Nat -> Nat / [m, n]@-}
ack :: Int -> Int -> Int
ack m n
    | m == 0          = n + 1
    | m > 0 && n == 0 = ack (m-1) 1
    | m > 0 && n >  0 = ack (m-1) (ack m (n-1))