Guest User

Untitled

a guest
Sep 16th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.21 KB | None | 0 0
  1. -module(recursion).
  2. -export([fac/1, fac_tail/2]).
  3.  
  4. fac(N) -> if
  5.     N =< 0 -> 1;
  6.     N > 0 -> N * fac(N - 1)
  7. end.
  8.        
  9. fac_tail(N, Acc) -> if
  10.     N =< 0 -> Acc;
  11.     N > 0 -> fac_tail(N - 1, Acc * N)
  12. end.
Add Comment
Please, Sign In to add comment