如何在Lisp中将0前缀到整数列表

Question

我有一个整数列表（3 11 7 26 5）

我写了一个函数来在0到1位数之间加上数字：

(defun beautify (list)
  (mapcar #'0-add list))

(defun 0-add (1digit)
  (format nil "~2,'0d" 1digit))

它输出（“ 03”“ 11”“ 07”“ 26”“ 05”）

但是，我想拥有（03 11 07 26 05）

我该如何安排？

Answer 1

CL-USER 10 > (format t "(~{~a~^ ~})" '("03" "11" "07" "26" "05"))
(03 11 07 26 05)

CL-USER 11 > (format t "(~{~2,'0d~^ ~})" '(3 11 7 26 5))
(03 11 07 26 05)