Написать функцию, проверяющую, является ли число степенью двойки - Lisp

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

написать функцию, проверяющую, является ли число степенью двойки.

Решение задачи: «Написать функцию, проверяющую, является ли число степенью двойки»

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

(defun is-power-of-2 (n)
  (cond ((= n 1) t)
        ((zerop (% n 2)) (is-power-of-2 (\ n 2)))
        (t nil)))
 
==> is-power-of-2
 
(is-power-of-2 32768)
 
==> T
 
(is-power-of-2 32767)
 
==> NIL

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

В коде определена функция с именем is-power-of-2. Она принимает один аргумент n. Функция проверяет, является ли число n степенью двойки. Если n равно 1, то функция возвращает t. Если n равно 0, то функция возвращает nil. В противном случае функция рекурсивно вызывает саму себя с аргументом n, уменьшенным на 2, и проверяет, равно ли значение выражения (n % 2) нулю. Если это так, то функция возвращает t. Если нет, то функция возвращает nil. Пример использования функции: (is-power-of-2 32768) -> T (is-power-of-2 32767) -> NIL