|
setup <- function() {
|
|
for (m in 0:3) {
|
|
for (n in 0:4) {
|
|
stdout$print(paste(ackermann(m, n), " "))
|
|
}
|
|
stdout$println("")
|
|
}
|
|
}
|
|
|
|
ackermann <- function(m, n) {
|
|
if ( m == 0 ) {
|
|
return(n+1)
|
|
} else if ( n == 0 ) {
|
|
ackermann(m-1, 1)
|
|
} else {
|
|
ackermann(m-1, ackermann(m, n-1))
|
|
}
|
|
}
|