Another update from ingydotnet^djgoku

Task/Fibonacci-sequence/Erlang/fibonacci-sequence-1.erl

@@ -1,3 +1,6 @@
-fib(0) -> 0;
+-module(fib).
+-export([fib/1).
+
+fib(0) -> 1;
 fib(1) -> 1;
-fib(N) when N > 1 -> fib(N-1) + fib(N-2).
+fib(N) -> fib(N-1) + fib(N-2).

Task/Fibonacci-sequence/Erlang/fibonacci-sequence-2.erl

@@ -1,3 +1,12 @@
-fib(N) -> fib(N,0,1).
-fib(0,Res,_) -> Res;
-fib(N,Res,Next) when N > 0 -> fib(N-1, Next, Res+Next).
+-module(fiblin).
+-export([fib/1])
+
+fib(0) -> 0;
+fib(1) -> 1;
+fib(2) -> 1;
+fib(3) -> 2;
+fib(4) -> 3;
+fib(5) -> 5;
+
+fib(N) when is_integer(N) -> fib(N - 6, 5, 8).
+fib(N, A, B) -> if N < 1 -> B; true -> fib(N-1, B, A+B) end.

Task/Fibonacci-sequence/Erlang/fibonacci-sequence-3.erl

@@ -0,0 +1 @@
+io:write([fiblin:fib(X) || X <- lists:seq(1,10) ]).