Найти сумму цифр целого числа без учёта знака - Lisp
Формулировка задачи:
Найти сумму цифр целого числа (без учета знака) (12345->15)
Решение задачи: «Найти сумму цифр целого числа без учёта знака»
textual
Листинг программы
(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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д