Написать функцию, возвращающую список из n копий заданного атома x

(defun replicate (x n)  ;; классическое элементарное решение
   (cond ((= n 1) '(x))
           (t (cons x (replicate x (- n 1))))))
 
==> replicate
 
(replicate 'a 10)
 
==> (a a a a a a a a a x)

(defun replicate (x n)  
   (let ((r nil)) 
        (dotimes (i n r) (setq r (cons x r)))))
 
==> replicate
 
(replicate '(a b c) 10)
 
==> ((a b c) (a b c) (a b c) (a b c) (a b c) (a b c) (a b c) (a b c) (a b c) (a b c))

(defun duplicate (x)  ;; рекурсивный вариант
   (cond ((null x) nil)
         (t (cons (car x) (cons (car x) (duplicate (cdr x)))))))
 
==> duplicate
 
(duplicate '(1 2 3 4))
 
==> (1 1 2 2 3 3 4 4)

(defun duplicate (x)  ;; нерекурсивный вариант
  (let ((r nil))
       (dolist (i x r) (setq r (append r (list i i))))))
 
==> duplicate
 
(duplicate '(1 2 3 4))
 
==> (1 1 2 2 3 3 4 4)

(defun task-2 (x sym)  ;; рекурсивный вариант
    (cond ((null x) nil)
          (t (if (>= (car x) 0) (append (list (list (car x) sym)) (task-2 (cdr x) sym))
                               (append (cons (car x) (task-2 (cdr x) sym)))))))
 
==> task-2
 
(task-2 '(1 2 3 -5 7 -6) '*)
 
==> ((1 *) (2 *) (3 *) -5 (7 *) -6)

(defun task-2 (x sym) ;; нерекурсивный вариант
  (let ((r nil))
       (dolist (i x r)
           (if (>= i 0) (setq r (append r (list (list i sym))))
                       (setq r (append r (list i)))))))
 
==> task-2
 
(task-2 '(1 2 3 -5 7 -6 8 9 0 0 0) '*)
 
==> ((1 *) (2 *) (3 *) -5 (7 *) -6 (8 *) (9 *) (0 *) (0 *) (0 *))

(defun task-2 (x sym) ;; очень лисповское, с функцией высшего порядка
  (mapcar #'(lambda (y) (if (>= y 0) (list y sym) y)) x))
 
==> task-2
 
(task-2 '(1 2 3 0 0 -4 -7 -7 0) '*)
 
==> ((1 *) (2 *) (3 *) (0 *) (0 *) -4 -7 -7 (0 *))

;;; Возвращающую список из n копий заданного атома x.
;;; (Например, x=4, n=5 -> (4 4 4 4 4)
(defun replicate (item count)
  (loop repeat count collecting item))
 
;;; Добавляющую заданный паpаметpом x символ после каждого
;;; неотрицательного элемента списка L.
;;; (Например, x=*, L=(-1 6 -3 0) -> (-1 (6 *) -3 (0 *))).
(defun insert-symbol (list s)
  (loop for item in list
        collect (if (minusp item) item `(,item ,s))))
 
;;; Преобразующую список в "двойной" список таким образом, чтобы каждый элемент удвоился.
;;; (Например, (1 2 3) -> (1 1 2 2 3 3)).
(defun duplicate (list)
  (loop for item in list nconcing `(,item ,item)))