4 lines
123 B
Common Lisp
4 lines
123 B
Common Lisp
;; page 15
|
|
union[x; y] = [null[x] -> y;
|
|
member[car[x]; y] -> union[cdr[x]; y];
|
|
T -> cons[car[x]; union[cdr[x]; y]]] |