You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

9 lines
347 B

(load "displaylib.scm")
(title "Exercise 2.44")
(doc "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.")
(define (up-split painter n)
(if (= n 0)
painter
(let ((smaller (up-split painter (- n 1))))
(below painter (beside smaller smaller)))))