-module(anillos2).
%-export([ringcreation/1, ring/1, init/1]).
-compile(export_all).

ring(Pid) ->
    receive
        {Mensaje, 0} -> ring(Pid);
            {Mensaje, N} ->
            Pid!{Mensaje, N-1},
            io:format("Soy ~p y me llego: ~p~n",[self(),Mensaje]),
            ring(Pid);
            {'exit'} ->
            io:format("termine ~p~n", [self()]),
            Pid!{'exit'}
    end.

ringcreation(N) ->
    ring(ringcreation(self(), N-1)).

ringcreation(Pid,1) ->
    X = spawn(?MODULE, ring, [Pid]),
    io:format("hola soy ~p~n",[X]),
    X;
ringcreation(Pid,N) ->
    X = spawn(?MODULE,ring,[ringcreation(Pid,N-1)]),
    io:format("hola soy ~p~n",[X]),
    X.

init() ->
    Pid = spawn(?MODULE,ringcreation,[8]),
    io:format("El Primero es ~p ~n",[Pid]),
    receive
        after(2000) -> ok
    end,
    Pid!{"caballo",5},
    ok.

%fijate que toque la funcion ringcreation para que devuelva el Pid que se le pasa. Por lo que
%te puse en Facebook. Me parece que ahora anda. Abrazoo!!