src/sicp/ex2_7.clj

   1 (ns sicp.ex2_7
   2   (:use [sicp utils ch2_1_extended]
   3         [clojure.test]))
   4
   5 (defn make-interval [x y]
   6   (list x y))
   7
   8 (defn lower-bound [i]
   9   (first i))
  10
  11 (defn upper-bound [i]
  12   (first (rest i)))