Question

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

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

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

Answer 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

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

1 个答案: