SICP 2.52b
問題文が意味不明だと思ったら誤訳だった。right-splitとup-splitで画像を2個並べるんじゃなくて1個だけにしてみよ、というのが題意。
(load "../psets/go.scm") ; redefine right-split and up-split (define (right-split painter n) (if (= n 0) painter (let ((smaller (right-split painter (- n 1)))) (beside painter smaller)))) (define (up-split painter n) (if (= n 0) painter (let ((smaller (up-split painter (- n 1)))) (below painter smaller)))) ; test (paint-g1 (corner-split wave 4))