Функция, удаляющая из числового списка все совпадающие с заданным числом элементы

(defun clear-square (a w)
  (cond ((null w) nil)
        ((= (car w) a) (clear-square a (cdr w)))
        (t (cons (expt (car w) 2) (clear-square a (cdr w))))))
 
> (clear-square 1 '(1 2 3))
(4 9)

(defun clear-square (a w &optional ac)
  (cond ((null w) (nreverse ac))
        ((= (car w) a) (clear-square a (cdr w) ac))
        (t (clear-square a (cdr w) (cons (expt (car w) 2) ac)))))
 
> (clear-square 1 '(1 2 3))
(4 9)

(defun clear-square (a w &optional ac)
  (if w (clear-square a (cdr w) (if (= (car w) a) ac
                                    (cons (expt (car w) 2) ac)))
      (nreverse ac)))
 
> (clear-square 1 '(1 2 3))
(4 9)

(defun clear-square (a w)
  (loop for e in w unless (= e a) collect (expt e 2)))
 
> (clear-square 1 '(1 2 3))
(4 9)

(defun clear-square (a w)
  (loop for e in w unless (= e a) collect (* e e)))
 
> (clear-square 1 '(1 2 3))
(4 9)

(defun task (lst n)
  (mapcar (lambda (y) (* y y)) (remove-if (lambda (x) (= x n)) lst)))
 
==> TASK
 
(task '(1 2 3 4 5 6 1 2 3 4 5 6) 3)
 
==> (1 4 16 25 36 1 4 16 25 36)