如何使用Lisp格式化函数在参数中填充零？

Question

我正在尝试使用Lisp的format函数，但遇到了问题。尽管我可以让它很好地对齐数字列表，但似乎无法用零填充：

(defun inc (a) (+ 1 a))
(dotimes (i 10)
  (format t "~3@:D ~:*~R~%" (inc i)))

这将产生以下输出：

+1: one
+2: two
+3: three
+4: four
+5: five
+6: six
+7: seven
+8: eight
+9: nine
+10: ten

有人知道如何将其补零吗？

- tomjen

Answer 1

这个例子取自《Practical Common Lisp》的 FORMAT 章节：

(format nil "~12d" 1000000)    ==> "     1000000"
(format nil "~12,'0d" 1000000) ==> "000001000000"

- J Cooper