シンボルを使って式の微分。 前準備 (define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var))) ((product? exp) (make-sum (make…

2.53 省略。 2.54 (define (%equal? a b) (cond ((and (pair? a) (pair? b)) (and (%equal? (car a) (car b)) (%equal? (cdr a) (cdr b)))) ((and (not (pair? a)) (not (pair? b))) (eq? a b)) (else #f))) 2.55 ''abracadabra ; => (quote abracadabra)だ…

これhttp://d.hatena.ne.jp/motemen/20051226/1135612691でできると思ったんだけど、何だかbelowの定義が変(教科書通りにやっても違った絵が出る)なのとdraw-lineが定義されてなかったのとDrSchemeで実行するのがストレス溜まるのでスキップ。