Найти сумму цифр целого числа - 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