Реализовать аппликативный оператор MY-REMOVE-IF с интерфейсом и семантикой, аналогично стандартному REMOVE-IF - Lisp

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

Реализовать аппликативный оператор MY-REMOVE-IF с интерфейсом и семантикой, аналогично стандартному REMOVE-IF.

Решение задачи: «Реализовать аппликативный оператор MY-REMOVE-IF с интерфейсом и семантикой, аналогично стандартному REMOVE-IF»

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

(defun remove-if (p lst &KEY (count NIL) (from-end NIL)) 
   (COND (from-end (reverse (remove-if p (reverse lst) :count count :from-end NIL)))
         (T (COND ((NULL count) 
                   (COND ((NULL lst) NIL) 
                         ((FUNCALL p (CAR lst)) (remove-if p (CDR lst)))
                         (T (CONS (CAR lst) (remove-if p (CDR lst)))))) 
                  (T (COND ((NULL lst) NIL) 
                           ((= count 0) lst) 
                           ((FUNCALL p (CAR lst)) (remove-if p (CDR lst) :count (SUB1 count)))
                           (T (CONS (CAR lst) (remove-if p (CDR lst) :count count)))))))))

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

В коде определён аппликативный оператор MY-REMOVE-IF с интерфейсом и семантикой, которые аналогичны стандартному оператору REMOVE-IF. Оператор MY-REMOVE-IF принимает три аргумента:

p — предикат, который должен возвращать логическое значение, когда элемент нужно удалить.
lst — список, из которого будут удалены элементы, удовлетворяющие предикату.
&KEY — ключевые параметры:
- count — количество элементов, которые нужно удалить. По умолчанию оно равно нулю, что означает удаление всех элементов, удовлетворяющих предикату.
- from-end — указывает, нужно ли удалять элементы в обратном порядке. По умолчанию это значение равно NIL, что означает удаление элементов в прямом порядке. Внутри функции определён условие, которое проверяет значение параметра from-end. Если оно не равно NIL, то выполняется REMOVE-IF в обратном порядке. В этом условии используется функция REVERSE, которая изменяет порядок элементов в списке на обратный. Если значение параметра from-end равно NIL, то выполняется стандартная логика функции REMOVE-IF:
Если список пуст или предикат не возвращает TRUE для первого элемента, то возвращается исходный список.
Если предикат возвращает TRUE для первого элемента, то удалённый элемент добавляется в конец нового списка, а функция вызывается рекурсивно для оставшейся части списка.