Найти сумму цифр целого числа без учёта знака - Lisp

Найти сумму цифр целого числа (без учета знака) (12345->15)

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

(defun sum-dig (n)
  (apply '+ (explode (abs n))))
 
==> sum-dig
 
(sum-dig 123456)
 
==> 21

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

В данном коде определён функции с именем sum-dig, которая принимает на вход один аргумент n — целое число. Внутри функции происходит следующее:

Используется функция abs для получения абсолютного значения числа n.
С помощью функции explode получается строковое представление числа n, которое затем разбивается на отдельные цифры.
Используется функция apply для применения плюс к каждой цифре полученного строкового представления числа n.
Результат сохраняется в переменную sum-dig и возвращается из функции. При вызове функции sum-dig со значением 123456 результатом будет число 21.