Определить функцию, подсчитывающую сумму цифр, выделенных из числа - Lisp

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

Дано большое натуральное число. Определить функцию, подсчитывающую сумму цифр, выделенных из этого числа. Например: если дано "31415926", ответом будет "31".

Решение задачи: «Определить функцию, подсчитывающую сумму цифр, выделенных из числа»

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

(defun +digit (n)
  (if (< n 10) n
      (+ (rem n 10) (+digit (truncate n 10)))))
 
> (+digit 31415926)
31

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

В коде определена функция +digit. При вызове функции с аргументом 31415926 происходит следующее:

Выполняется проверка условия (< n 10). Значение переменной n (31415926) больше 10, поэтому происходит переход к следующему шагу.
Выполняется операция (+ (rem n 10) (+digit (truncate n 10))). Значение переменной n (31415926) делится на 10 (31415926 / 10 = 3141592) и из результата вычитается 10. Затем выполняется рекурсивный вызов функции +digit с аргументом (truncate n 10), который равен 3141592. К результату этой операции добавляется результат вызова функции +digit с аргументом (rem n 10), который равен 31.
Результатом выполнения функции является число 31. Таким образом, в результате вызова функции +digit с аргументом 31415926 получается число 31.