4 lines
72 B
Haskell
4 lines
72 B
Haskell
|
ack 0 n = n + 1
|
||
|
|
ack m 0 = ack (m-1) 1
|
||
|
|
ack m n = ack (m-1) (ack m (n-1))
|