Erlang:从数据列表传递到进程列表的并行消息

时间:2013-10-01 01:26:12

标签: erlang

如何实现从列表A中的所有值到进程列表B的同时传递?列表A& B大小相等。假设A = [1,2,3]并且B = [< 0.42.0>,< 0.43.0>,< 0.44.0>]。我想将值1传递给处理< 0.42.0>等等并行执行。

这是我到目前为止所得到的:

pass_values([P|ValueListA], [H|ProcessListB]) ->
    H ! {foo, P},
    pass_values(ValueListA, ProcessListB).

1 个答案:

答案 0 :(得分:1)

您正在寻找的是一个scatter实用程序,它接受一系列元素并将元素分发到一个进程数组。

-module(lab).

-compile(export_all).

go() ->
    ProcessList =
        lists:map(fun(_) ->
                          spawn(?MODULE, echo, [])
                  end,
                  lists:seq(1, 6)),
    DataList = ["E", "r", "l", "a", "n", "g"],
    scatter(DataList, ProcessList).

scatter(DataList, ProcessList) ->
    lists:foreach(fun({Data, Process}) ->
                          Process ! Data
                  end,
                  lists:zip(DataList, ProcessList)).

echo() ->
    receive
        Msg ->
            io:format("~p echos ~p~n", [self(), Msg]),
            echo()
    end.

试一试:

1> c(lab).
{ok,lab}
2> lab:go().
<0.40.0> echos "E"
<0.41.0> echos "r"
<0.42.0> echos "l"
<0.43.0> echos "a"
<0.44.0> echos "n"
<0.45.0> echos "g"
ok