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



             

Пример 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)) ) ) ))




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