3

我有兴趣在 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，您可以观看它执行此操作。因此，它适用于您可能想要重用单个输出行的任何其他情况。

4

2 回答 2

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

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

CL-USER> (show-progress 10)
===========>
NIL
于 2012-10-16T03:10:34.510 回答
0 
(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)))))

例如。

于 2012-10-16T13:41:32.880 回答