; This code should be part of your solution, since the ; test-cases depend on it. (define path-to (lambda (slist sym) (let pathto ([slist slist] [path-so-far '()]) (cond [(null? slist) #f] [(eq? (car slist) sym) (reverse (cons 'car path-so-far))] [(symbol? (car slist)) (pathto (cdr slist) (cons 'cdr path-so-far))] [else (or (pathto (car slist) (cons 'car path-so-far)) (pathto (cdr slist) (cons 'cdr path-so-far)))])))) ; Put yout Problem 1 solution here ; Put yout Problem 2 solution here ; Put yout Problem 3 solution here ; Put yout Problem 4 solution here ; Put yout Problem 5 solution here