10 lines
158 B
R
10 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))
|
||
|
|
}
|
||
|
|
}
|