重複共同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) 

雖然你怎麼可以自己編寫這樣的功能一個很好的例子是奧斯卡的答案提供。