연습문제 2.12

(define (make-center-percent c p)
  (let ((diff (/ ( * c p) 100.0)))
    (make-center-width c diff)))

(define (percent i)
  (*  (/ (width i) (center i)) 100.0))