Функция копирования LISP

Question

Я пытаюсь создать функцию, которая создает копии любого списка, который пользователь помещает на нужное количество копий.

Пользователь: (копия '(A)' (7)) Выход: (AAAAAAA)

(defun copy (x y) 
    (cond ((-1 counter) 
     nil) 
     (T 
     (list (cons (car x) (cdr x))) 
       copy 
       (cdr x))) 

Я пытаюсь настроить счетчик и просто создать новый список в текущий список по уменьшая счетчик. Пока счетчик является псевдокодом.
Это счетчик, который я пытаюсь выяснить.

(defun count (y) 
    (let ((a y)) 
    (- a 1))) 

Я получаю ошибку в том, что все, что я вкладываю в y не число.

Answer 1

Хотя я могу понять, почему первым параметром является список, второй должен быть числом. Очень простая реализация может выглядеть следующим образом:

(defun copy (lst count) 
    (when (> count 0) 
    (append (copy-list lst) (copy lst (1- count))))) 

Тестирование:

CL-USER> (copy '(A) 7) 
(A A A A A A A) 
CL-USER> (copy '(A B C) 7) 
(A B C A B C A B C A B C A B C A B C A B C) 

обычные предостережения относительно использования append и объекта копирования применяются.

Answer 2

Я хотел бы предложить, передавая свой список в качестве аргумента &rest вместо этого и использовать loop:

(defun repeat (n &rest items) 
    (loop repeat n append items)) 

Тест

CL-USER> (repeat 10 0 1 2) 
(0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2)