Помогите написать предикат от аргумента-списка, определяющий наличие четных элементов в шестиэлементном число - Lisp

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

Помогите написать предикат от аргумента-списка, определяющий наличие четных элементов в шестиэлементном числовом списке.

Решение задачи: «Помогите написать предикат от аргумента-списка, определяющий наличие четных элементов в шестиэлементном число»

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

(defun evenn (w)
  (cond ((null w) nil)
        ((evenp (car w)))
        ((evenn (cdr w)))))
 
> (evenn '(1 1))
NIL
> (evenn '(1 2))
T

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

В коде определён предикат evenn, который проверяет список w на наличие четных элементов. В первой ветке условного оператора проверяется, является ли список пустым. Если это так, то возвращается nil. Во второй ветке условного оператора проверяется, является ли первый элемент списка четным. Если это так, то возвращается t. В третьей ветке условного оператора рекурсивно вызывается evenn для проверки остальных элементов списка.