src/sicp/ex1_41.clj

   1 (ns sicp.ex1_41
   2   (:use [clojure.contrib test-is]
   3         [sicp utils]
   4         [sicp ch1_3]))
   5
   6 (defn doub [f]
   7   (fn [x] (f (f x))))
   8
   9 (comment
  10 (((doub (doub doub)) inc) 5)
  11 ;;=> 21
  12 user> ((doub inc) 1)
  13 ;;=> 3
  14 user> (((doub doub) inc) 1)
  15 ;;=> 5
  16 user> (((doub (doub doub)) inc) 1)
  17 ;;=> 17
  18 user> (((doub (doub (doub doub))) inc) 1)
  19 ;;=> 257
  20 user> (((doub (doub (doub (doub doub)))) inc) 1)
  21 ;;=> 65537
  22 )