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

Формулировка задачи:

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

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

Листинг программы

(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)

Объяснение кода листинга программы

В коде определена функция с именем task. Она принимает два аргумента: lst — числовой список, и n — число. Функция использует следующие функции и операции:

mapcar — применяет функцию к каждому элементу списка.
lambda — определяет анонимную функцию.
remove-if — удаляет из списка все элементы, для которых выполняется условие.
= — сравнение на равенство.
- — умножение.
y — переменная, которая будет использоваться в лямбда-функции.
x — переменная, которая будет использоваться в лямбда-функции.
n — переменная, которая будет использоваться в лямбда-функции. В лямбда-функции используется оператор (* y y), который будет умножать каждый элемент списка на себя. Вызывается функция task с аргументами: lst — '(1 2 3 4 5 6 1 2 3 4 5 6), n — 3. Код выполняет следующие действия:
Создаётся лямбда-функция, которая будет применяться к каждому элементу списка.
Из списка удаляются все элементы, равные n.
К оставшимся элементам применяется лямбда-функция, которая умножает каждый элемент на себя.
Результат выводится на экран.