RosettaCodeData/Task/Ackermann-function/Chapel/ackermann-function.chapel
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

8 lines
205 B
Text

proc A(m:int, n:int):int {
if m == 0 then
return n + 1;
else if n == 0 then
return A(m - 1, 1);
else
return A(m - 1, A(m, n - 1));
}