sicp-ex-1.3

;;; my solution

(define (min a b)
(if (< a b) a b))

(define (min3 a b c)
(min a (min b c)))

(define (square x)(* x x))

(define (sum-of-squares a b)
(+ (square a)(square b)))



(define (large-two-square a b c)
(cond ((= a (min3 a b c)) (sum-of-squares b c))
((= b (min3 a b c)) (sum-of-squares a c))
((= c (min3 a b c)) (sum-of-squares a b))
))

;;; solution from other

  
 (define  
     (largest-two-square-sum x y z)  
         (if (= x (larger x y))  
             (sum-of-squares x (larger y z))  
             (sum-of-squares y (larger x z)) 
         ) 
 ) 
  
 (define  
     (larger x y)  
         (if (> x y) x y) 
 ) 
  
 (define  
     (sum-of-squares x y)  
         (+ (square x) (square y)) 
 ) 
  
 (define  
     (square x)  
         (* x x) 
 )