1 ;;;;;;;;;;;;;;;;;
2.52
2 (define (corner-
split painter n)
3 (
if (= n
0)
4 painter
5 (let ((up (up-split painter (- n
1)))
6 (right (right-split painter (- n
1)))
7 (corner (corner-split painter (- n
1))))
8 (beside (below painter up)
9 (below right corner)))))
10
11 ;;;;;;;;;;;;;;;;
2.53
12 (define (square-
limit painter n)
13 (let ((combine (square-of-four identity flip-
horiz
14 flip-
vect rotate180))
15 (combine (corner-split painter n)))))
转载于:https://www.cnblogs.com/tclan126/p/6433615.html
