Функционал, проверяющий наличие элемента, удовлетворяющего предикату - Lisp

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

При необходимости можно использовать локальные или вспомогательные функции. Напишите функцию (exist p x), которая проверяет «Существует ли элемент списка х, удовлетворяющий предикату p?» (р – функция или функциональное имя).

Решение задачи: «Функционал, проверяющий наличие элемента, удовлетворяющего предикату»

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

(defun if-exist (p x)
  (cond ((null x) nil)
           ((funcall p (car x)) t)
           (t (if-exist p (cdr x)))))

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

В данном коде определена функция с именем if-exist. Эта функция принимает два аргумента: p и x. Аргумент p является предикатом, а аргумент x — списком. Внутри функции используется конструкция cond, которая позволяет проверить несколько условий. Если первое условие истинно (то есть, если x равно nil), то возвращается nil. Если же первое условие ложно, то выполняется второе условие. Оно проверяет, равно ли значение, возвращаемое функцией p, истине. Если это так, то возвращается t. Если же и второе условие ложно, то выполняется третье условие. Оно проверяет, является ли значение, возвращаемое функцией p, истиной. Если это так, то рекурсивно вызывается функция if-exist с аргументом (cdr x). Таким образом, функция if-exist проверяет, существует ли в списке x элемент, удовлетворяющий предикату p. Если такой элемент существует, то возвращается t. В противном случае возвращается nil.