lisp - 在循环中打印到屏幕

Question

我有这个：

(loop for i below x
            do (update-world)
            if (zerop (mod i 1000))
            do (princ #\.))

它正在工作，只是所有princ调用都在最后一次到达。这里的想法是它们是一个进度指示器，每 1000 次迭代在屏幕上打印一个周期。这是来自 Lisp 书的土地，我想知道是否期望在循环中间打印不是可移植的期望？

score 4 · Accepted Answer

4

(finish-output)后加一个princ。

于 2013-11-27T10:16:15.120 回答

1 回答 1