multi_try.erl

-module(multi_try).
-export([dothese/1]).

dothese(FuncArray) ->
    Me = self(),
    lists:foreach(fun(F) -> spawn(fun() -> F(Me) end) end, FuncArray),
    spawn(fun() -> timer:sleep(200), Me ! timeout end),
    Result = get_result("",length(FuncArray)),
    io:format("result: ~p~n", [Result]).

get_result(Result, 0) -> 
    Result;

get_result(Result, RemainTimes) ->
  receive
      timeout -> 
          Result;
      Sth -> get_result(Result ++ Sth, RemainTimes - 1)
  end.

test.escript

#!/usr/bin/env escript

main(_) ->
  A = fun(Pid) -> timer:sleep(100),  Pid ! "A" end,
  B = fun(Pid) -> timer:sleep(300), Pid ! "B" end,
  C = fun(Pid) -> timer:sleep(150),  Pid ! "C" end,
  multi_try:dothese([A,B,C]).

之前提交成 anonymous 了，汗