Node4

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).