RosettaCodeData/Task/Ackermann-function/Pike/ackermann-function.pike
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

13 lines
233 B
Text

int main(){
write(ackermann(3,4) + "\n");
}
int ackermann(int m, int n){
if(m == 0){
return n + 1;
} else if(n == 0){
return ackermann(m-1, 1);
} else {
return ackermann(m-1, ackermann(m, n-1));
}
}