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

Question

我希望在Common Lisp中实现一个“单行”计数器/进度条。没有太多花哨，只是像这样的东西:

=>

==>

===> ...等等。

然后再重新开始。或者计算我已经访问过的节点数量。

但是，我想把所有内容都放在一行上，并清除先前打印出来的字符。例如，在Python中，可以这样做：

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

然后计数，但保持一行输出，同时在给定迭代之前清除该行上打印的所有内容。我知道在lisp中有(format t “text” #\return)，但似乎不起作用。是否有人知道我应该如何做到这一点？ （我已经寻找了解决方案，但似乎找不到任何东西。）谢谢，安德鲁

编辑：我找到了解决方案。您需要添加指令（通用“〜A”有效），以便处理#\return：

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

这将计数到50,000，您可以观看它完成。因此，它适用于您可能想要重复使用单个输出行的任何其他情况。

- The AI Architect

---

@wvxvw：我认为他想要打印回车，而不是换行符。 - Rainer Joswig

@andrewm921 请发布您的答案，接受它并指定您正在使用哪个Lisp实现和平台。 - acelent

Answer 1

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

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

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

- ymn

---

是的，那样做可以行得通，但如果你想让它重新绕回来（比如说，你不是在测量进度，而是提供视觉分心），那就不太适用了。 - The AI Architect

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 ，但如果您在终端中运行此操作，则会清除箭头并重新打印它。

---

这是使用重复相同字符格式化字符串的方法：

format

(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)))))

例如。

- user797257

---

这并不是很好，因为你耗费了 i 个字符串。如果你想要更聪明一些，可以使用格式指令来打印 i 个字符。 - Rainer Joswig