clojure：我如何使用while / loop with sleep

Question

我想每秒调用一个函数。

我有以下代码：

(defn dostuff []
  (do
    (print "I'm doing stuff")
    ...))

(while true
  (Thread/sleep 1000)
  (dostuff))

我希望这会每秒打印“我正在做的东西”，但事实并非如此。

我如何实现这一目标？

Answer 1

你不是在冲洗stdout。您可以使用println，print加newline（强制自动刷新），或者显式调用flush，如下所示：

(defn dostuff []
  (do
    ...
    (print "I'm doing stuff")
    (flush)))