12 lines
236 B
Text
12 lines
236 B
Text
define ack(m, n) {
|
|
if ( m == 0 ) return (n+1);
|
|
if ( n == 0 ) return (ack(m-1, 1));
|
|
return (ack(m-1, ack(m, n-1)));
|
|
}
|
|
|
|
for (n=0; n<7; n++) {
|
|
for (m=0; m<4; m++) {
|
|
print "A(", m, ",", n, ") = ", ack(m,n), "\n";
|
|
}
|
|
}
|
|
quit
|