defun ряд_цел
( defun ряд_цел (M N) (cond ((> M N) Nil)
(T(cons M (ряд_цел (1+ M) N)))))
(defun сумма (X) (cond ((= X 0) 0)
(T (+ (car X)( сумма (cdr X))))) )
Введение в программирование на Лиспе
( defun ряд_цел (M N) (cond ((> M N) Nil)
(T(cons M (ряд_цел (1+ M) N)))))
(defun сумма (X) (cond ((= X 0) 0)
(T (+ (car X)( сумма (cdr X))))) )