RosettaCodeData/Task/Ackermann-function/Fermat/ackermann-function.fermat

3 lines
96 B
Plaintext

Func A(m,n) = if m = 0 then n+1 else if n = 0 then A(m-1,1) else A(m-1,A(m,n-1)) fi fi.;
A(3,8)