这里 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))))