Factorial function in erlang

fact.erl

-module(fact).
-export([factorial/1]).

%% The solution is tail recursive

factorial(N) ->
  factorial(1, N, 1).

factorial(Current, N, Result) when Current =< N ->
  NewResult = Result * Current,
  factorial(Current+1, N, NewResult);

factorial(_, _, Result) ->
  Result.