■
問題1.3。間違ってた。
「三つの引数のうち大きい2者の和」じゃなくて「三つの引数のうち大きい2者の二乗の和」だ。
gosh> (define (>= x y) (not (< x y))) (define (f x y z) (cond ((and (>= x z) (>= y z) ) (+ (* x x) (* y y)) )) (cond ((and (>= x y) (>= z y) ) (+ (* x x) (* z z)) )) (cond ((and (>= y x) (>= z x) ) (+ (* y y) (* z z)) )) ) >= gosh> f gosh> (f 1 1 1) 2 gosh> (f 1 2 3) 13 gosh>
凄い凡ミス(笑)。