RosettaCodeData/Task/Ackermann-function/AppleScript/ackermann-function.applescript
2015-11-18 06:14:39 +00:00

5 lines
169 B
AppleScript

on ackermann(m, n)
if m is equal to 0 then return n + 1
if n is equal to 0 then return ackermann(m - 1, 1)
return ackermann(m - 1, ackermann(m, n - 1))
end ackermann