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  )