exercise 4.11~4.12

むー。

書き貯めてたのをいっぺんにうpするのはめんどい・・・
まぁここ最近ネット環境が無かったので仕方ないか。
あと、明日（というか今日）は下宿に帰ってリトバス三昧な予定なので、今うpらないと・・・

ex4.11

(define (make-frame variables values)                                         
  (if (null? variables)                                                       
      '()                                                                     
      (cons (cons (car variables) (car values))                               
            (make-frame (cdr variables) (cdr values)))))                      
(define (frame-variables frame)                                               
  (if (null? frame)                                                           
      '()                                                                     
      (cons (car (car frame)) (frame-variables (cdr frame)))))                
(define (frame-values frame)                                                  
  (if (null? frame)                                                           
      '()                                                                     
      (cons (cdr (car frame)) (frame-values (cdr frame)))))                   
(define (last-pair x)                                                         
  (if (null? (cdr x))                                                         
      x                                                                       
      (last-pair (cdr x))))  

まぁ多分動くと思う。
というかmap使ったら楽な気がするが、注釈5にほげほげ書いてるので使っていない。
といいつつ、俺の記憶が確かなら後半めんどくなって使い出しt(ry

ex4.11

どうも満足できんので他人の解答を調べてみた。
で、まぁ東の大きな大学のサイトに乗ってる奴を発見。むー、俺のより綺麗だ・・・

それはさておき眠くなってきたので、今日はこの辺で終わりかな。実にねもい