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