sicp-ex-1.3

<< Previous exercise (1.2) | sicp-solutions | Next exercise (1.4) >>

 (define (square x) (* x x)) 
  
 (define (sumsquares x y) (+ (square x) (square y))) 
  
 (define (sqsumlargest a b c) 
     (cond  
         ((and (>= a c) (>= b c)) (sumsquares a b)) 
         ((and (>= b a) (>= c a)) (sumsquares b c)) 
         ((and (>= a b) (>= c b)) (sumsquares a c)))) 

 (sqsumlargest 1 2 3) 
 ;Value: 13 
 (sqsumlargest 1 1 1) 
 ;Value: 2 
 (sqsumlargest 1 2 2) 
 ;Value: 8 
 (sqsumlargest 1 1 2) 
 ;Value: 5