6.001, Spring Semester, 2005--Quiz Il Ques Question 14. SHeETs (lambda o (fold-right +0 map (lambda (thing)(ask thing ' SHEETS)) Question 1 110 Question 17 Question 18. Question 19 (define (aged-cabinet self name) (let ((cabinet-part(cabinet self name Cage 0)) (make-handler ADD-THING (lambda (thing) (if (< age 4) (ask cabinet-part 'ADdThING thing (set! age ( age 1))) 'broken))) cabinet -part))) Question 20: (define (located-cabinet self name x y) (let((cabinet -part (cabinet self name)) (located-object-part (located-object self x y))) (make-handler (make-methods cabinet -part located-ob ject -part)))￾
      + ￾
 %  ￾
 %   &' ￾
 % ￾

              ￾

   ￾
 %  ￾
 %  ￾
 %  ￾
 !                   ￾     ￾     !"  #      ￾  $    % ￾     ￾
          & '           (    (  & '   ￾           (