こちらも上で定義した。 (define (split f1 f2) (lambda (painter n) (if (= n 0) painter (let ((smaller ((split f1 f2) painter (- n 1)))) (f1 painter (f2 smaller smaller)))))) (define right-split (split beside below)) (define up-split (split b…

上で定義した。 (define (up-split painter n) (if (= n 0) painter (let ((smaller (up-split painter (- n 1)))) (below painter (beside smaller smaller)))))

図形を出せるようにしよう。 http://www.xmission.com/~nate/glut.html から、glut-3.7.6-bin.zip (117 KB) をダウンロードし glut32.dll を C:/windows/system以下とかsystem32以下とかに置く。 そして、 http://practical-scheme.net/gauche/packages-j.ht…