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
This note was uploaded on 10/13/2009 for the course CS 3773 taught by Professor Staff during the Spring '08 term at The University of Texas at San Antonio- San Antonio.
- Spring '08
- Software engineering