計算機プログラムの構造と解釈 第二版 P53 問題2.12

何だか忙しくていろいろブログをかけなかったけども。
やっとこ続き行きます。

で、この問題ですがたいした問題ではないです。
・構成子make-center-percentを定義
・選択子percentを定義

俺は過去を振り返らない。
ということで、もう実装だけをかいておわり。

(define (make-center-percent c p)
  (let ((w (/ (* c (/ p 100)) 2)))
    (make-center-width c w)))

(define (percent i)
  (* (/ (- (upper-bound i) (lower-bound i)) (center i)) 100))