RosettaCodeData/Task/Ackermann-function/Pure/ackermann-function.pure

A 0 n = n+1;
A m 0 = A (m-1) 1 if m > 0;
A m n = A (m-1) (A m (n-1)) if m > 0 && n > 0;