Сумма цифр числа - Lisp

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

Создайте функцию, вычисляющую сумму цифр натурального числа

Решение задачи: «Сумма цифр числа»

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

(defun sum-digits (n)
  (apply '+ (explode n)))
 
==> sum-digits
 
(sum-digits 1234)
 
==> 10
 
(sum-digits (fact 100))
 
==> 648

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

В коде определена функция с именем sum-digits. Функция принимает один аргумент n. Внутри функции используется функция apply, которая применяет функцию + к каждому элементу списка, который получается с помощью функции explode, применённой к аргументу n. Вот список, оформленный в требуемом виде:

(defun sum-digits (n)
(apply '+ (explode n)))
sum-digits
(sum-digits 1234)
10
(sum-digits (fact 100))
648