Node4
anell4.erl — 1 KB
Continguts del fitxer
-module(anell4). -export([inici/0, re/2]). inici() -> register(p4, self()), re(4, 5), unregister(p4). re(I,0) -> io:format("P~b finalitza~n",[I]); re(I, N) -> receive token -> ok end, io:fwrite("Proc ~b: token received~n", [I]), {p1,'Nom del node N1'}!token, io:fwrite("Proc ~b: token enviat ~p~n", [I,N]), re(I, N-1).