問題1.3

三つの数を引数としてとり、大きい二つの数の二乗の和を返す手続きを定義せよ。

(define (Q1.3 x y z)
  (let ((w (min x y z))
 (x2 (* x x))
 (y2 (* y y))
 (z2 (* z z)))
    (cond ((= x w) (+ y2 z2))
   ((= y w) (+ z2 x2))
   (else (+ x2 y2)))))