]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex1_42.clj
Solution to 4.44. A bit too verbose. Can be improved by better
[sicp.git] / src / sicp / ex1_42.clj
1 (ns sicp.ex1_42
2   (:use [clojure.contrib test-is]
3         [sicp utils]
4         [sicp ch1_3]))
5
6 (defn compose [f g]
7   (fn [x] (f (g x))))
8
9
10 (deftest test-compose-square-of-inc-of-6
11   (is (= ((compose square inc) 6)
12          49)))
13
14 (deftest test-compose-square-of-square-of-2
15   (is (= ((compose square square) 2)
16          16)))
17
18 (comment
19 ;; from repl do
20   (use 'sicp.ex1_42 :reload)
21   (run-tests 'sicp.ex1_42)
22  )