Erlang-实现进程环

最新推荐文章于 2023-08-31 22:46:41 发布

li8630

最新推荐文章于 2023-08-31 22:46:41 发布

阅读量663

点赞数

CC 4.0 BY-SA版权

分类专栏：并行计算文章标签： erlang 并行处理

本文链接：https://blog.youkuaiyun.com/li8630/article/details/44916165

并行计算专栏收录该内容

7 篇文章

订阅专栏

M是消息传递数目，N进程数量，Msg是传递的消息

-module(exe3_2).
-export([start/3,stop/0]).

start(M,N,Msg) ->register(ring,spawn(fun()->ring_service(M,N,Msg) end)).

stop() -> ring!stop.

ring_service(M,N,Msg) ->
    Ring=ring_node(N,[]),%Ring是进程环
    send_msg(M,Msg,Ring),
    receive
        stop -> stop_ring(Ring)
    end.

stop_ring([]) ->ok;
stop_ring([H|T]) ->H!stop,
                 stop_ring(T).



send_msg(0,_Msg,_Ring) ->ok;
send_msg(M,Msg,[H|T]) ->H ! {msg,M,Msg},
                        send_msg(M-1,Msg,T ++ [H]).



ring_node(N,Ring) when N>0 
                    ->Next_Pid = spawn(fun() ->loop() end),
                    ring_node(N-1,[Next_Pid|Ring]);
ring_node(0,Ring) ->lists:reverse(Ring).

loop() ->
        receive
            {msg,M,Msg} ->
                io:format("~w:~w:~w~n",[self(),M,Msg]),
                loop();
            stop ->true
        end.