Erlang/OTP Forums

-module(test).
-export([main/0,job/2]).

main() ->
    NumberChildren = 10,
   
    Children = collect(
      fun() ->
         Self = self(),
         spawn(test,job,[Self,randomVector(10)])           
      end, NumberChildren),   
   
    io:format("~w\n",[Children]),

   Results = collect(
      fun() ->
         receive
            Result -> Result
         end
      end, NumberChildren),
    io:format("~w\n",[Results]).

randomVector(N) ->
    collect(fun() -> random:uniform(10) end, N).
               
collect(Fun, N) ->
   lists:foldl(
      fun(_,List) -> [Fun()|List] end,
      [], lists:seq(1,N)
   ).
   
job(Supervisor, Data) ->
    Sum = lists:sum(Data),
    io:format("~w : sum of ~w is ~w\n",[self(), Data, Sum]),
    Supervisor ! Sum.