如何在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)