Node3

Continguts del fitxer

-module(anell3).
-export([inici/0, re/2]).

inici() ->
	register(p3, self()),
	re(3, 5),
	unregister(p3).

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]),
	{p4,'Nom del node N4'}!token,
	io:fwrite("Proc ~b: token enviat ~p~n", [I,N]),
	re(I, N-1).