Advertisement
Guest User

Untitled

a guest
Dec 10th, 2019
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. First blank: exp
  2. Second blank (after first): (cond ((list? (car s)) (search-list (car s) (list 'car exp))) ((= n (car s)) (list 'car exp)) (else nil))
  3. Third blank (after rest): (search-list (cdr s) (list 'cdr exp))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement