Удаление вхождений списка - Lisp

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

Привет всем! Появилось задание: написать функцию (f X V), которая выдает список, получающийся из списка V после удаления всех вхождений X на всех уровнях, например, (f '(1 (2 3 (1)) (3 1)) 1) = ((2 3 nil) (3)). Как собственно его проще всего выполнить?

Решение задачи: «Удаление вхождений списка»

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

(defun F (L X)
 (cond
  ((null L) nil)
  ((equal (car L) X) (F (cdr L) X))
  ((listp (car L)) (cons (F (car L) X) (F (cdr L) X)))
  (T (cons (car L) (F (cdr L) X)))))

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

В данном коде определён функционал для удаления вхождений списка.

(defun F (L X) ...)
- Определяет функцию F, которая принимает два аргумента: L и X.
- L — список, в котором нужно удалить вхождения X.
- X — элемент, который нужно удалить из списка L.
(cond ...)
- Используется для проверки условий и возврата соответствующих значений.
- Условие (null L) проверяет, является ли список L пустым.
- Если условие истинно, то возвращается nil.
- Условие (equal (car L) X) проверяет, является ли первый элемент списка L равным X.
- Если условие истинно, то рекурсивно вызывается функция F для оставшейся части списка (cdr L) и X.
- Условие (listp (car L)) проверяет, является ли первый элемент списка L списком.
- Если условие истинно, то создаётся новый список, состоящий из первого элемента (F (car L) X) и оставшейся части списка (F (cdr L) X).
- Если все условия ложны, то возвращается новый список, состоящий из первого элемента (car L) и оставшейся части списка (F (cdr L) X).
(T)
- Если все условия ложны, то возвращается новый список, состоящий из первого элемента (car L) и оставшейся части списка (F (cdr L) X).
(cons (car L) (F (cdr L) X))
- Используется для создания нового списка, состоящего из первого элемента (car L) и оставшейся части списка (F (cdr L) X).