SICPゼミ第40回

2章はやばいので4章に帰ってきました。

練習問題4.2

applicaionかどうかの判定 (application?) はタグを気にせずペアかどうかしか見ていない．これが最後でないと (define …) みたいなのも適用として扱ってしまうのでおかしくなる． call を使うことにするのであれば，ほかのやつと同じように，callというタグが付いてると思って扱えばよい．

by dolicas

練習問題4.3

(define (eval exp env)
  (if (self-evaluating? exp)
    exp
    (if (get 'eval (get-tag exp))
      ((get 'eval (get-tag exp)) (get-content exp) env)
      (apply (eval (operator exp) env) (list-of-values (operands exp) env)) 
    )
  ))
(define (get-tag exp)
  (car exp))
(define (get-content exp) (cdr exp))

by dolicas