SICP Exercise 2.44

Question

Define the procedure up-split used by corner-split. It is similar to right-split, except that it switches the roles of below and beside.

Answer

Here is the function implementation for up-split:

copy(define (up-split painter n)
  (if (= n 0)
      painter
      (let ((smaller (up-split painter (- n 1))))
        (below painter (beside smaller smaller)))))