Помогите написать с помощью условной формы COND функцию AND4(x1 x2 x3 x4) - Lisp

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

Помогите написать с помощью условной формы COND функцию AND4(x1 x2 x3 x4).

Решение задачи: «Помогите написать с помощью условной формы COND функцию AND4(x1 x2 x3 x4)»

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

(defun and4 (x1 x2 x3 x4)
  (cond ((not x1) nil)
          ((not x2) nil)
          ((not x3) nil)
          ((not x4) nil)
          (t t)))

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

В данном коде определена функция с именем AND4, которая принимает четыре аргумента x1, x2, x3 и x4. С помощью условной формы COND происходит проверка каждого аргумента на истинность. Если какой-либо из аргументов является ложным, то в соответствующем ветвлении возвращается nil. Если все аргументы истинны, то в последнем ветвлении возвращается t. Таким образом, функция AND4 возвращает t, только если все её аргументы истинны.