Another update from ingydotnet^djgoku

Task/Ackermann-function/Erlang/ackermann-function.erl

@@ -1,9 +1,9 @@
--module(ack).
--export([main/1, ack/2]).
+-module(ackermann).
+-export([ackermann/2]).
 
-main( [A, B] ) ->
-   io:fwrite( "~p~n",[ack(erlang:list_to_integer(A), erlang:list_to_integer(B))] ).
-
-ack(0,N) -> N + 1;
-ack(M,0) -> ack(M-1, 1);
-ack(M,N) -> ack(M-1,ack(M,N-1)).
+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)).