All pastes #676959 Raw Edit

Miscellany

public text v1 · immutable
#676959 ·published 2007-08-31 15:31 UTC
rendered paste body
-module(confib).
-export([fib/1, listen/0]).

fib(N) when N < 2 ->
    N;
fib(N) ->
    PID = spawn(confib, listen, []),
    fib(PID ! N - 2) + fib(PID ! N - 1).

listen() ->
    receive
        N ->
            fib(N)
    end.