Подсчитать сумму элементов заданного

(defun sum-el ( xl) (cond ((null xl) 0) (xl (+ (car xl) (sum-el (cdr xl) ) ) ) ) )
(sum-el '(1 2 3 4 ) ) ; = 10

Пример 7.13. Подсчитать сумму элементов заданного списка.

Закрыть окно