Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- First blank: exp
- Second blank (after first): (cond ((list? (car s)) (search-list (car s) (list 'car exp))) ((= n (car s)) (list 'car exp)) (else nil))
- Third blank (after rest): (search-list (cdr s) (list 'cdr exp))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement