src/sicp/ex2_12.clj

   1 (ns sicp.ex2_12
   2   (:use [sicp utils ch2_1_extended ex2_7]
   3         [clojure.test]))
   4
   5 (defn make-center-percent [c p]
   6   (let [u (+ c (* c p 0.01))
   7         l (- c (* c p 0.01))]
   8     (make-interval l u)))
   9
  10 (defn percentage [i]
  11   (let [c (center i)
  12         l (lower-bound i)
  13         u (upper-bound i)]
  14     (* (/ (- u c) c) 100)))