Erlang课程并发练习：我的答案可以改进吗？

我正在做这个练习erlang.org 课程 http://www.erlang.org/course/exercises.html#conc:

2）编写一个以N开头的函数 在环中处理，并发送 围绕所有消息 M 次 环中的进程。之后 消息已发送至进程 应该优雅地终止。

这是我想出的：

-module(ring).
-export([start/2, node/2]).

node(NodeNumber, NumberOfNodes) ->
  NextNodeNumber = (NodeNumber + 1) rem NumberOfNodes,
  NextNodeName = node_name(NextNodeNumber),
  receive
    CircuitNumber ->
      io:format("Node ~p Circuit ~p~n", [NodeNumber, CircuitNumber]),
      LastNode = NodeNumber =:= NumberOfNodes - 1,
      NextCircuitNumber = case LastNode of
                           true ->
                             CircuitNumber - 1;
                           false ->
                             CircuitNumber
                         end,
      if
        NextCircuitNumber > 0 ->
          NextNodeName ! NextCircuitNumber;
        true ->
          ok
      end,
      if
        CircuitNumber > 1 ->
          node(NodeNumber, NumberOfNodes);
        true ->
          ok
      end
  end.

start(NumberOfNodes, NumberOfCircuits) ->
  lists:foreach(fun(NodeNumber) ->
                    register(node_name(NodeNumber),
                             spawn(ring, node, [NodeNumber, NumberOfNodes]))
                end,
                lists:seq(0, NumberOfNodes - 1)),
  node_name(0) ! NumberOfCircuits,
  ok.

node_name(NodeNumber) ->
  list_to_atom(lists:flatten(io_lib:format("node~w", [NodeNumber]))).

这是它的输出：

17> ring:start(3, 2).
Node 0 Circuit 2
ok
Node 1 Circuit 2
Node 2 Circuit 2
Node 0 Circuit 1
Node 1 Circuit 1
Node 2 Circuit 1

如果我真的了解 Erlang，我会采取不同的方法来改进这段代码吗？具体来说：

• 除了在最后两个 if 语句中指定不执行任何操作的“true”子句之外，还有其他选择吗？

• 我真的优雅地结束了吗？结束已注册的进程时是否需要执行任何特殊操作？

欢迎来到二郎！我希望你和我一样喜欢它。

除了在最后两个 if 语句中指定不执行任何操作的“true”子句之外，还有其他选择吗？

你可以把这些去掉。我用这个运行了你的代码：

if NextCircuitNumber > 0 ->
  NextNodeName ! NextCircuitNumber
end,
if CircuitNumber > 1 ->
  node(NodeNumber, NumberOfNodes)
end

这对我有用。

我真的优雅地结束了吗？结束已注册的进程时是否需要执行任何特殊操作？

是的，你是。您可以通过运行以下命令来验证这一点i().命令。这将向您显示进程列表，如果您注册的进程没有终止，您会看到许多注册进程留下，例如node0, node1等等。您也将无法再次运行您的程序，因为尝试注册已注册的名称会出错。

至于您可以做的其他事情来改进代码，没有太多，因为您的代码基本上没问题。我可能做的一件事就是放弃NextNodeName多变的。您可以直接发送消息至node_name(NextNodeNumber)那行得通。

另外，您可能可以进行更多的模式匹配来改进事情。例如，我在使用代码时所做的一个更改是通过传入最后一个节点的编号来生成进程(NumberOfNodes - 1)，而不是通过NumberOfNodes。然后，我可以在我的node/2像这样的函数头

node(LastNode, LastNode) ->
    % Do things specific to the last node, like passing message back to node0
    % and decrementing the CircuitNumber
node(NodeNumber, LastNode) ->
    % Do things for every other node.

这让我能够清理一些case and if你的逻辑node功能并使一切变得更加整洁。

希望有帮助，祝你好运。