Common Lisp - 单行打印/返回/单行计数器/格式化

Question

我有兴趣在 Common Lisp 中实现“单行”计数器/进度条。没什么特别的，就像：

=>

==>

===> ……等等……

然后让它重新开始。或者数一数我访问过的节点数。

但是，我想在一行上完成所有这些，并清除以前打印的字符。例如，在 Python 中，它会是这样的：

for i in range(0,1000):    
    print "\r",i,"   "

然后计算，但将所有内容保留在一行中，同时在任何给定迭代之前清除该行上打印的所有内容。

我知道在 lisp 中有 (format t "text" #\return)，但这似乎不起作用。

有人知道我该怎么做吗？ （我环顾四周，似乎找不到任何东西）。

谢谢，

安德鲁

编辑：

我找到了解决方案。您需要为要处理的#\return 添加一个指令（通用的“~A”有效）：

(loop for i from 0 to 50000 do
        (format t "~A~A         " #\return i))

这将数到 50,000，您可以观看它执行此操作。因此，它适用于您可能希望重用单个输出行的任何其他情况。

Answer 1

 (defun show-progress (len)
  (format t "=")
  (dotimes
      (i len)
    (format t "="))
  (format t ">")
 )

执行此函数后，您应该会看到以下输出：

CL-USER> (show-progress 10)
===========>
NIL

Answer 2

(defun progress-bar ()
  (dotimes (i 100)
    (format t "~a>" (make-string i :initial-element #\=))
    (finish-output)
    (sleep 1)
    (dotimes (j (1+ i))
      (write-char #\Backspace))))

这就是您可以在同一行上打印一个不断增长的“箭头”的方法（发送退格字符的次数与您打印的等号字符的次数一样多将删除它）。

请注意，这在 SLIME/SWANK 组合中不起作用，因为它们不会处理可能被解释为命令的“特殊”字符，而是会回避它们，这将打印为 ^H 的束，但是如果你在终端中运行它，它会清除箭头并重新打印它。

---

这就是你如何通过重复相同的字符来使用formatting 字符串：

(defun progress-bar ()
  (dotimes (i 100)
    (format t (format nil "~~1,1,~d,'=:<>~~>" i))
    (finish-output)
    (sleep 1)
    (dotimes (j (1+ i))
      (write-char #\Backspace))))

如果你喜欢更复杂的方式（它确实短了几个字符！）。而且，哦，等等，它创建的字符串和原来的字符串一样多……哎呀 :)

---

不幸的是，我不知道有什么好的格式指令可以清楚地重复一个字符，所以上面的方法似乎是最简单的方法，但是，还有其他有趣的方法可以有效地做到这一点 .

(defun progress-bar ()
  (let ((arrow (make-array
                101
                :element-type 'character
                :initial-element #\>
                :fill-pointer 1)))
    (dotimes (i 100)
      (format t arrow)
      (setf (fill-pointer arrow) (+ i 2)
            (aref arrow i) #\=
            (aref arrow (1+ i)) #\>)
      (finish-output)
      (sleep 1)
      (dotimes (j (1+ i))
        (write-char #\Backspace)))))

(defun progress-bar ()
  (let (source)
    (dotimes (i 100)
      (format t "~{~c~}>" source)
      (push #\= source)
      (finish-output)
      (sleep 1)
      (dotimes (j (1+ i))
        (write-char #\Backspace)))))

例如。