lisp - 在 Lisp 中将十进制数转换为八进制数

Question

我正在尝试在 Common Lisp 中编写一个函数，以递归方式将 10 进制数转换为 8 进制数，表示为一个列表。

这是我目前所拥有的:

(defun base8(n)
(cond
    ((zerop (truncate n 8)) (cons n nil))
    ((t) (cons (mod n 8) (base8 (truncate n 8))))))

当我输入数字 < 8 和 > -8 时，这个函数工作正常，但是递归的情况给我带来了很多麻烦。当我尝试将 8 作为参数(应返回 (1 0))时，我收到错误 Undefined operator T in form (T)。

提前致谢。

Answer 1

只是为了好玩，这里有一个没有递归的解决方案，使用内置功能:

(defun base8 (n)
  (reverse (coerce (format nil "~8R" n) 'list)))