問題1.3
何とかできた。。
(define (squaresum x y z)
(- (+ (* x x) (* y y) (* z z))
(* (smallest x y z) (smallest x y z))
)
(define (smallest x y z)
(smaller (smaller x y) (smaller x z))
)
(define (smaller x y)
(if (> x y) y x)
)
3つの数の2乗の和を計算して、そこから3つのうちの最小の数の2乗の和を引き算する、と。
きれいじゃないなあ。