Введение в программирование на Лиспе
773123a3

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


(defun sum-el ( xl) (cond ((null xl) 0) (xl (+ (car xl) (sum-el (cdr xl) ) ) ) ) )
(sum-el '(1 2 3 4 ) ) ; = 10
Пример 7.13. Подсчитать сумму элементов заданного списка.
Закрыть окно



Содержание раздела