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



             

Пример 9.1


(defun ряд_цел (M N) (cond ((> M N) Nil)

(T(cons M (ряд_цел (1+ M) N)))))

(defun сумма (X) (cond ((= X 0) 0)

(T (+ (car X)( сумма (cdr X))))) )




Содержание  Назад  Вперед