RosettaCodeData/Task/Ackermann-function/LiveCode/ackermann-function.livecode

11 lines
271 B
Plaintext

function ackermann m,n
switch
Case m = 0
return n + 1
Case (m > 0 And n = 0)
return ackermann((m - 1), 1)
Case (m > 0 And n > 0)
return ackermann((m - 1), ackermann(m, (n - 1)))
end switch
end ackermann