src/sicp/ex2_45.clj

   1 (ns sicp.ex2_45)
   2
   3 (defn split [f1 f2]
   4   (fn (painter n)
   5     (if (= n 0)
   6       painter
   7       (let [smaller ((split f1 f2) painter (- n 1))]
   8         (f1 painter (f2 smaller smaller))))))
   9
  10 (def right-split (split beside below))
  11 (def up-split    (split below beside))
  12
  13