Найти сумму цифр целого числа - Lisp
Формулировка задачи:
Найти сумму чисел целого числа(без учета знака) ... как можно быстрей плиз
Решение задачи: «Найти сумму цифр целого числа»
textual
Листинг программы
- (defun ++digit (n) (+d (abs n)))
- (defun +d (n)
- (if (< n 10) n (+ (rem n 10) (+d (truncate n 10)))))
- > (++digit 12345)
- 15
- > (++digit -12345)
- 15
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
