階乗

#!/usr/bin/env escript
fact(0) -> 1;
fact(N) -> N * fact(N - 1).

main(_) ->
  N = fact(65535),
  io:format("~p~n", [N]).
real   0m11.969s
user    0m11.742s
sys 0m0.175s
#!/usr/bin/env escript
fact(N) -> fact(N, 1).

fact(0, Acc) -> Acc;
fact(N, Acc) -> fact(N - 1, Acc * N).

main(_) ->
  N = fact(65535),
  io:format("~p~n", [N]).
real   0m11.921s
user    0m11.781s
sys 0m0.095s