Exercise 1.3

(define (square x) (* x x))
(define (sum-of-square x y)
  (+ (square x) (square y)))

(define (top-two-sum-square a b c)
  (cond ((and (>= b a) (>= c a)) (sum-of-square b c))
        ((and (>= a b) (>= c b)) (sum-of-square c a))
        (else (sum-of-square a b))))

> (top-two-sum-square 1 1 1)
->2
> (top-two-sum-square 1 1 2)
->5
> (top-two-sum-square 1 2 1)
->5
> (top-two-sum-square 2 1 1)
->5
> (top-two-sum-square 1 2 3)
->13