concurrent sieve of erathostenes - analogy with go example

gistfile1.hrl

-module(sieve).
-export([run/1]).

run(M) ->
        Numbers = lists:seq(3, M),
        Startpid = self(),
        spawn_link(fun() -> prime_filter(Startpid, 2, Numbers) end),
        gather().

gather() ->
        receive
                %% concatenate received primes
                {Prime, finish} ->
                        [Prime];
                {Number} ->
                        [Number|gather()]
        end.



prime_filter(StartPid, Prime, []) ->
        StartPid ! {Prime, finish};

prime_filter(StartPid, Prime, List) ->
        Indivisible = lists:filter(fun(Elem) -> (Elem rem Prime) /= 0 end, List),
        [NextPrime|Rest] = Indivisible,
        StartPid ! {Prime},
        spawn(fun() -> prime_filter(StartPid, NextPrime, Rest) end).