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))