This preview shows page 1. Sign up to view the full content.
Unformatted text preview: (define find (lambda (x y) (cond ((null? y) '()) ((cons? y ) (or (find x (car y)) (find x (cdr y)))) (else (eq? x (car y)))))) (define substitute (lambda (x y z) (cond ((null? y) y) ((cons? y) (let ((res1 (substitute x (car y) z)) (res2 (substitute x (cdr y) z)) (cons res1 res2))...
View Full
Document
 Spring '08
 STAFF
 Software engineering

Click to edit the document details