小编Zim*_*ang的帖子

如何使用缺点或其他方式打印佩尔编号列表直到第N个编号？

(defun pellse (k)
   (if (or (zerop k) (= k 1))
       k
   (+ (* 2 (pellse (- k 1)))
      (pellse (- k 2)))))
 (print (pellse 7))