]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_7.clj
rewrite `quote->cons' using `match'.
[sicp.git] / 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)))