Написать генератор чисел Фибоначчи. Результатом работы генератора должна быть пара {очередное_число, генератор_следующего_числа}.

gistfile1.hrl

-module(fib_gen).
-export([generator/0]).

generator() ->
    receive
        {A, B} ->
            NewA = B,
            NewB = A + B,
            self() ! {NewA, NewB}
    after 0 ->
        A = 0,
        B = 1,
        self() ! {B, A + B}
    end,
    {A, fun generator/0}.

%% Start = fun fib:generator/0.
%% lists:foldl(fun(I,F) -> {N,F1} = F(), io:format("~p: ~p~n", [I, N]), F1 end, Start, lists:seq(1, 100)).

На заметку