10 lines
243 B
Text
10 lines
243 B
Text
Ackermann := proc( m :: nonnegint, n :: nonnegint )
|
|
option remember; # optional automatic memoization
|
|
if m = 0 then
|
|
n + 1
|
|
elif n = 0 then
|
|
thisproc( m - 1, 1 )
|
|
else
|
|
thisproc( m - 1, thisproc( m, n - 1 ) )
|
|
end if
|
|
end proc:
|