Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two larger numbers

这里 http://code.google.com/p/jrm-code-project/wiki/ProgrammingArt

Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two larger numbers.

(define (sum-square-largest x y z)
  (cond ((and (< x y) (< x z)) ;; x is smallest
         (+ (* y y) (* z z)))
        (else (sum-square-largest y z x))))