Удаление всех элементов из списка - Lisp

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

помогите определить функцию, удаляющую из списка все элементы, входящие в список не один раз, кроме последнего вхождения. Зараниее спасибо)

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

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

(defun clear-duplicates (w &aux (a (car w)) (d (cdr w)))
  (when w (if (member a d)
              (clear-duplicates d)
              (cons a (clear-duplicates d)))))
 
> (clear-duplicates '(1 2 3 a 1 b 2 c 3))
(A 1 B 2 C 3)

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

В данном коде представлена функция clear-duplicates, которая принимает два аргумента: w — список, в котором необходимо удалить дубликаты, и aux — вспомогательный список, который используется для хранения промежуточных результатов. Внутри функции определены две переменные: a и d. Переменная a содержит первый элемент списка w, а переменная d содержит оставшуюся часть списка w (после удаления первого элемента). Функция начинает работу с проверки условия: если w не равно nil (т.е. список не пустой), то выполняется следующая проверка: если элемент a присутствует в списке d (т.е. он является дубликатом), то функция вызывает саму себя, передавая в качестве аргумента d, и не добавляет элемент a в результирующий список. Если же элемент a не является дубликатом, то он добавляется в начало результирующего списка, а функция вызывается снова, передавая в качестве аргумента d. Если же список w пустой, то результатом работы функции будет пустой список. В данном примере функция clear-duplicates вызывается с аргументом '(1 2 3 a 1 b 2 c 3). После удаления дубликатов получаем список (A 1 B 2 C 3), где A, B, C — это уникальные элементы, а 1, 2, 3 - это повторяющиеся элементы.