9 lines
158 B
R
9 lines
158 B
R
ackermann <- function(m, n) {
|
|
if ( m == 0 ) {
|
|
n+1
|
|
} else if ( n == 0 ) {
|
|
ackermann(m-1, 1)
|
|
} else {
|
|
ackermann(m-1, ackermann(m, n-1))
|
|
}
|
|
}
|