5 lines
146 B
Common Lisp
5 lines
146 B
Common Lisp
;; page 11
|
|
|
|
subst[x; y; z] = [equal[y; z] -> x;
|
|
atom[z] -> z;
|
|
T -> cons[subst[x; y; car[z]]; subst[x; y; cdr[z]]]] |