; 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
; 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