gistfile1.erl

reduceF(ProcCount, Results) ->
    receive
        {emit, Ref, Value } -> reduceF(ProcCount, [Value | Results]);
        {spawn, Ref }       -> reduceF(ProcCount + 1, Results);
        {die, Ref }         -> Count = ProcCount - 1,
          if
            Count =:= 0 -> Results;
            true  -> reduceF(Count, Results)
          end
        after
        1000 -> ok
    end.