RosettaCodeData/Task/Ackermann-function/Pike/ackermann-function.pike

14 lines
233 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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));
}
}