感谢您查看我的问题。
我写了一个代码来解决问题环的问题，这个问题来自于奥莱利·弗朗西斯科·切萨里尼和辛普森·汤普森的练习4-2：进程环。
现在我的问题是，我如何修改代码，以便当消息kill被发送到任何进程时，所有其他进程都应该自动死亡，而消息不会通过环传播。
即使你不能解决它，只是感谢至少看它。这是我自己的好奇心会发生什么，如果这是怎么回事，再次感谢我会分享代码和原来的问题，让你们可以理解。

原始问题：编写一个程序，创建N个连接成环的进程，如图4-17所示。一旦启动，这些进程将发送M个消息，然后在收到退出消息时优雅地终止。你可以用调用ring：start（M，N，Message）启动环。

代码：

-module(r).
-export([start/3,processes/1]).

start(M, N, Message) ->
  io:format("Central Process pid: ~w\n", [self()]),
  { ok, NextPid } = spawner(N),
  ok = sender(Message, M, NextPid),
  ok = sender(stop, 1, NextPid),
  ok.

spawner(N) ->
  spawner(N, self()).
      
spawner(1, Nring) ->
  { ok, Nring };
            
spawner(N, Nring) ->
  Pid = spawn(r, processes, [Nring]),
  spawner(N - 1, Pid).
  
processes(Nring) ->
  loop(Nring).

loop(Nring) ->
  receive
    { stop, From } ->
      io:format("~w received stop from ~w\n", [self(), From]),
      Nring ! { stop, self() },
      ok;
    { Msg, From } ->
      io:format("~w received ~w from ~w\n", [self(), Msg, From]),
      Nring ! { Msg, self() },
      loop(Nring)
  end.
  
sender(Msg, Times, NextPid) ->
  NextPid ! { Msg, self() },
  ok = receiver(Msg),
  case Times > 1 of
    true ->
      sender(Msg, Times - 1, NextPid);
    false ->
      ok
  end.
  
receiver(Msg) ->
  receive
      { Msg, From } ->
      io:format("~w received ~w from ~w\n", [self(), Msg, From]),
      ok
  end.

如果有拼写错误请原谅，我将非常感激。非常感谢。