NULL x) y)
| (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. |
| Закрыть окно |
Введение в программирование на Лиспе
| 
|
|
|
|
| (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. |
| Закрыть окно |