gistfile1.erl

pmap(Mapper,XS,_) when length(XS) =< 2-> %async not really useful here
  [Mapper(X) || X <-XS];
pmap(Mapper,XS,Timeout)->
  Myself = self(),
  [spawn(fun()-> Myself ! Mapper(X) end) || X <- XS],
  map_receive(length(XS),[],Timeout).

map_receive(0,Acc,_) -> Acc;
map_receive(N,Acc,Timeout)->
  receive
    Res -> map_receive(N-1,[Res|Acc],Timeout)
  after 
    Timeout -> Acc
  end.