RosettaCodeData/Task/Ackermann-function/AppleScript/ackermann-function.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
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`on ackermann(m, n)`
2016 Update 2016-12-05 22:15:40 +01:00			`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))`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`end ackermann`