練習問題その2

問題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乗の和を引き算する、と。
きれいじゃないなあ。