5 lines
146 B
Common Lisp
5 lines
146 B
Common Lisp
;; page 15
|
|
|
|
intersection[x;y] = [null[x] -> NIL;
|
|
member[car[x]; y] -> cons[car[x]; intersection[cdr[x]; y]];
|
|
T -> intersection[cdr[x]; y]] |