recursive.erl

-module(recursive).
-export([split/2]).
-export([fib/1]).

split(D, L) -> split(D, L, [], []).
split(_, []   , R, W) -> [lists:reverse(X) || X <- lists:reverse([W|R])];
split(D, [D|T], R, W) -> split(D, T, [W|R], []);
split(D, [H|T], R, W) -> split(D, T, R, [H|W]).

fib(0) -> 0;
fib(1) -> 1;
fib(N) -> fib(N, 1, 1).

fib(2, _, B) -> B;
fib(N, A, B) -> fib(N - 1, B, A + B).