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



             

Пример 8.1


(defun UNION- (x y) (let ( (a-x (CAR x)) (d-x (CDR x)) ) (COND ((NULL x) y) ((MEMBER a-x y) (UNION d-x y) ) (T (CONS a-x (UNION d-x y)) ) ) ))

Пример 8.1.

Закрыть окно






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