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