在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。