RosettaCodeData/Task/Fibonacci-sequence/Erlang/fibonacci-sequence-4.erl

5 lines
117 B
Erlang

fib(N) -> fib(N, 0, 1).
fib(0, Result, _Next) -> Result;
fib(Iter, Result, Next) -> fib(Iter-1, Next, Result+Next).