在Clojure退出循环回路

Question

我想跳出下面的循环，并在第10行计算结果为真时返回最小移动。我使用print语句查看了输出，并且当第10行的值为true时，它会查找我正在查找的数据，但会继续发生。在Clojure中，有一种方法可以在语句评估为真时停止循环？或者我应该使用循环以外的其他东西吗？

(defn minimax [board max-mark min-mark depth best-score] 
    (loop [board board 
    max-mark max-mark 
    min-mark min-mark 
    depth depth 
    best-score best-score] 
    (if (= best-score (best-min-score board max-mark min-mark depth)) 
    (best-max-move board max-mark min-mark depth)      
    (do                
     (if (= best-score (best-min-score board min-mark max-mark depth)) 
     (best-min-move board min-mark max-mark depth)    
     (recur 
     (b/make-move-on board (remaining-scores board max-mark min-mark depth) max-mark)     
      min-mark 
      max-mark 
      (inc depth) 
      (dec best-score))))))) 

Answer 1

关于loop

• 这不是loop是循环：这是recur。
• loop是一个let，形成一个recur点。
• 你不会也不会突围一个圈：recur把你打成一片。

loop相当于设置和调用一个匿名函数。例如

(loop [n 5, s "Hello, world!"] 
    (if (zero? n) 
    (first s) 
    (recur (dec n) (rest s)))) 

...相当于

((fn [n s] 
    (if (zero? n) 
    (first s) 
    (recur (dec n) (rest s)))) 
5 "Hello, world!") 

随着性能的一些损失，loop可能已被编写为执行上述转换的宏。

---

至于你的代码：

这里有6种未定义功能。要清除汇编，我们

(declare best-min-score 
     best-max-move 
     best-min-move 
     best-max-move 
     make-move-on 
     remaining-scores) 

还有两种多余的形式。这些不会造成主动伤害，但会掩盖代码。

• 的loop无需：函数本身是recur合适 目标。
• do什么也不做：它包含一个单一的表单。

你的函数简化为

(defn minimax [board max-mark min-mark depth best-score] 
    (if (= best-score (best-min-score board max-mark min-mark depth)) 
    (best-max-move board max-mark min-mark depth) 
    (if (= best-score (best-min-score board min-mark max-mark depth)) 
     (best-min-move board min-mark max-mark depth)    
     (recur 
     (make-move-on board (remaining-scores board max-mark min-mark depth) max-mark)     
     min-mark 
     max-mark 
     (inc depth) 
     (dec best-score))))) 

---

而任何的未定义功能可能会反复出现，最好的办法是best-min-move。