error

[yefeiyu]

; excercise 1.3
; Define procedure that takes three numbers as arguments and returns
; the sum of the squares of the two larger numbers
(define (sum-larger-square a b c)
(cond ((and (< a b) (< a c)) (+ (* b b) (* c c)))
((and (< b a) (< b c)) (+ (* a a) (* c c)))
(else (+ (* a a) (* b b)))))

(sum-larger-square 5 5 6)
50

so, the right answer is :
(define (sum-larger-square a b c)
(cond ((and (<= a b) (<= a c)) (+ (* b b) (* c c)))
((and (<= b a) (<= b c)) (+ (* a a) (* c c)))
(else (+ (* a a) (* b b)))))
(sum-larger-square 5 5 6)
61