處理stdin Clojure

Question

下面看起來不起作用，但我不太清楚爲什麼。所有的移動板都是採用二維數組並返回一個二維數組，其餘的代碼都在那裏。基本上我試圖完成類似下面的Python：

While True: 
    do stuff 
    if gameover: 
    print("Game Over!") 
    break 

的Clojure不工作（打印一次董事會，請求輸入，然後掛起）

(defn game-loop [board] 
    (loop [b board] 
    (if (game-over? b) "Game Over!" 
     (do (print-board b) 
      (recur (move-board (read-line) b)))))) 

Answer 1

我們需要看到你的其他功能在做什麼。我 捏造他們似乎很可能，並重新制作，以使 如果分支更清晰。您的loop也是不必要的。

(defn game-over? [b] false) 
(defn print-board [b] (println b)) 
(defn move-board [ln b] (println "moving board:" ln)) 

(defn game-loop [b] 
    (if (game-over? b) 
    "Game Over!" 
    (do (print-board b) 
     (recur (move-board (read-line) b))))) 

(game-loop :bored) 

有了這些前三名的功能，你的循環行爲與預期相同： 提示單行線，無限。那麼，至少第一次是 時間，但那麼你的「掛起」問題就轉載了。

這可能是由this issue with the JVM引起的。另外discussed here。