2015-11-18 06:14:39 +00:00
|
|
|
-module(ackermann).
|
|
|
|
|
-export([ackermann/2]).
|
2013-04-10 12:38:42 -07:00
|
|
|
|
2015-11-18 06:14:39 +00:00
|
|
|
ackermann(0, N) ->
|
|
|
|
|
N+1;
|
|
|
|
|
ackermann(M, 0) ->
|
|
|
|
|
ackermann(M-1, 1);
|
|
|
|
|
ackermann(M, N) when M > 0 andalso N > 0 ->
|
|
|
|
|
ackermann(M-1, ackermann(M, N-1)).
|
