Clojure 代理交互失败

Question

想象一下：平面世界 n*n 个单元格。有移动的物体。它们可能会发生碰撞，根据流程，它们中的一个应该被销毁。

我使用来自 Rich Hickey 蚁群的想法将对象表示为代理。因此，在碰撞后，其中一个代理必须在收到其他代理的消息后停止工作。

有一个代码 sn-p 来说明我的问题：第二个代理意外停止。

;agents
(def f_guy (agent nil))

(def s_guy (agent nil))

;functions for agents
(defn f_do [x]
  (do
    (Thread/sleep 20)
    (println "f")
    (send-off *agent* f_do)))

(defn s_do [x]
  (do
    (Thread/sleep 40)
    (println "s")
    (send-off f_guy nil)
    (send-off *agent* s_do)))

;the process
(defn start []
  (do
    (send-off f_guy f_do)
    (send-off s_guy s_do)))

;go
(start)

谢谢！

Answer 1

您向f_guy 发送了调用nil 作为函数的请求。他做到了，这让他通过抛出异常进入了一个破碎的状态。然后，您让他再次致电nil。但他甚至不能同意这样做，因为他已经崩溃了，等待着有人来修复他。所以s_guy 一直在等待f_guy 确认（还不一定执行）请求，而f_guy 已经下班了。

Answer 2

请问你想在这里完成什么？

第一个和第二个代理在我的实验中都失败了，这是因为你基本上是把代理放在代理里面……

例子：

(def a (agent 0))
(send-off a inc) ; -> #<Agent@29de03: 1>

所以通过这样做：

(defn f_do [x]
  (do
    ...
    (send-off *agent* f_do)))

您在代理中递归地返回代理。