Node2

Continguts del fitxer

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

inici() ->
	register(p2, self()),
	re(2, 5),
	unregister(p2).

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