Количество десятичных цифр числа n - Lisp

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

Требуется решить две задачи с использованием рекурсии, но без &optional, initial element, т.к я не понимаю принципа их работы. Дано натуральное число N. Определить функцию, зависящую от N, которая находит количество цифр числа N.

Решение задачи: «Количество десятичных цифр числа n»

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

(defun cifr (n)
  (cond
    ((zerop n) 0)
    (t (1+ (cifr (floor n 10))))))

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

В данном коде:

(defun cifr (n) - определение функции с именем cifr, которая принимает один аргумент n.
(cond - начало условной конструкции. Условие - n равно нулю.
((zerop n) 0) - если n равно нулю, то возвращаем 0.
(t - иначе, если n не равно нулю.
(1+ (cifr (floor n 10)) - вызываем рекурсивно функцию cifr, передавая в нее значение (floor n 10), и добавляем 1 к результату.
)) - конец условной конструкции.
(defun cifr (n) - определение функции с именем cifr, которая принимает один аргумент n.
(cond - начало условной конструкции. Условие - n равно нулю.
((zerop n) 0) - если n равно нулю, то возвращаем 0.
(t - иначе, если n не равно нулю.
(1+ (cifr (floor n 10)) - вызываем рекурсивно функцию cifr, передавая в нее значение (floor n 10), и добавляем 1 к результату.
)) - конец условной конструкции. Таким образом, данный код определяет функцию cifr, которая рекурсивно вычисляет количество десятичных цифр числа n. Если число n равно нулю, то функция возвращает 0. В противном случае, функция вызывает саму себя, передавая в нее значение (floor n 10), и добавляет 1 к результату.