处理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。