sicp-ex-1.3


 (define (square x) (* x x)) 
  
 (define (sum-three-squre x y z) 
  (+ (square x) (square y) (square z))) 
  
 (define (test3 x y z) ~% 
   (- (sum-three-squre x y z)  
      (square (min x y z)))) 
 (test2 3 1) 
 ;;answer => 13