重复共同lisp的元素

Question

我尝试创建一个与two arguments x and y创建一个功能，它创建一个list of y times repeated elements X但即时通讯如何做到这一点或使用哪种方法，我认为列表压缩可以做但我想要一个更简单的方法例如，我想我的简单代码是这样的

if y = 4 
and x = 7 
result is list of elements (7, 7, 7, 7) 

我怎么能去任何想法？书籍的链接或任何会给我一个线索我试图寻找，但我没有被幸运

Answer 1

试试这个，它的方案，但总体思路应该是很容易转化为Common Lisp的：

(define (repeat x y) 
    (if (zero? y) 
     null 
     (cons x 
      (repeat x (sub1 y))))) 

编辑：现在

，Common Lisp中：

(defun repeat (x y) 
    (if (zerop y) 
     nil 
     (cons x 
      (repeat x (1- y))))) 

Answer 2

您可以使用make-list与初始元素键：

CL-USER> (make-list 10 :initial-element 8) 
    (8 8 8 8 8 8 8 8 8 8) 

虽然你怎么可以自己编写这样的功能一个很好的例子是奥斯卡的答案提供。