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