Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего атомов в этом S-выражение исключая заданный атом - Lisp

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

Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего атомов в этом S-выражение исключая заданный атом. Например: если дано "2 (1 2 (3 (2 4)) (5 2))", ответом будет "4";.

Решение задачи: «Даны атом и S-выражение. Определить функцию, вычисляющую, сколько всего атомов в этом S-выражение исключая заданный атом»

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

(defun cnt-sine (a w)
  (length (remove a (ftn w))))
 
(defun ftn (w)
  (loop for a in w
        if (listp a) append (ftn a)
        else collect a))
 
> (cnt-sine 2 '(1 2 (3 (2 4)) (5 2)))
4

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

В коде определены две функции:

cnt-sine (функция) Аргументы: a — заданный атом, w — S-выражение. Вычисляет количество атомов в S-выражении, исключая заданный атом. Результат: количество атомов в S-выражении, исключая заданный атом.
ftn (функция) Аргументы: w — S-выражение. Рекурсивно обходит все атомы в S-выражении, Если атом является списком, то рекурсивно вызывает функцию ftn для каждого элемента списка. Иначе, добавляет атом в результат. Результат: список, содержащий все атомы в S-выражении, кроме заданного атома. Разберём код по шагам:
В функции cnt-sine, первым аргументом является число 2, вторым аргументом является S-выражение '(1 2 (3 (2 4)) (5 2)).
В функции ftn, первым аргументом является S-выражение '(1 2 (3 (2 4)) (5 2)).
В функции ftn, рекурсивно вызывается функция ftn для каждого элемента списка.
Результатом функции ftn является список, содержащий все атомы в S-выражении, кроме заданного атома.
Функция cnt-sine вызывает функцию ftn с аргументом '(1 2 (3 (2 4)) (5 2)) и вычисляет длину полученного списка.
Результатом выполнения кода является число 4.