2008-04-17 Ex 2.45 SICP (define (split f g) (lambda (p n) (if (= n 0) p (let ((smaller ((split f g) p (- n 1)))) (f p (g smaller smaller)))))) (二引数の手続きを返せる、ということに気づくまでに時間がかかった。)