Напишите функцию, определяющую глубину последнего вхождения элемента Y в список W - Lisp

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

Помогите пожалуйста уже 3 неделю бьюсь над этой задачкой, посмотрел кучу тем и не нашел то, что мне нужно. Задание : Напишите функцию, определяющую глубину последнего вхождения элемента Y в список W. Пример: (<имя функции> '(1 2 3 (1 2 3) (( ((3)) 3)) ) 3 ) --> 2; глубину считал с 0

Решение задачи: «Напишите функцию, определяющую глубину последнего вхождения элемента Y в список W»

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

(Defun last (x) 
   (COND ((NULL x) NIL) 
             ((NULL (CDR x)) x) 
             (T (last (CDR x)))))

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

В данном коде определена функция LAST, которая принимает один аргумент X. Внутри функции используется условная конструкция COND, которая проверяет три условия:

Если X равно NIL, то возвращается NIL.
Если CDR X равно NIL, то возвращается X.
Если CDR X не равно NIL, то рекурсивно вызывается функция LAST с аргументом CDR X. Таким образом, функция LAST работает следующим образом:
Если входной список пустой, то функция возвращает NIL.
Если в списке остался только один элемент, то возвращается этот элемент.
Если в списке есть несколько элементов, то функция рекурсивно вызывается для обработки оставшейся части списка. В итоге, функция LAST позволяет найти последний элемент в списке.