ひさしぶりに読んでみたら、すっかりわすれてました。これはもうだめかもわからんので、もう一回やりなおそう。
ぼくはこういう風に最初からやり直すことがよくあって、そして結局最後までいけないこともよくあります。
(define (square x) (* x x)) (define (sum-of-square x y) (+ (square x) (square y))) (define (sum-of-bigger2 x y z) (if (> x y) (sum-of-square x (if (> y z) y z)) (sum-of-square y (if (> x z) x z))))