Node1

text/x-erlang anell1.erl — 1 KB

Continguts del fitxer

-module(anell1).
-export([er/2, inici/0]).

inici() ->
	register(p1, self()),
	er(1, 5),
	unregister(p1).

er(_I, 0) -> io:format("P1 finalitza~n");
er(I, N) ->
	io:fwrite("Proc ~b: token enviat ~p~n", [I,N]),
	{p2,'Nom del node N2'}!token,
	receive token -> ok end,
	io:fwrite("Proc ~b: token received ~p~n", [I,N]),
	er(I, N-1).