Ex 1.3 SICP

gistfile1.scm

(define (max1 a b c) 
  (cond ((and (> a b)(> b c)) a)
        ((and (> a b)(> c b)) a)
        (else c)))
(define (max2 a b c) 
  (cond ((and (> a b)(> b c)) b)
        ((and (> a b)(> c b)) c)
        (else b)))
(define (square x) (* x x))
(define (sum-square a b) (+ (square a) (square b)))
(define (sum-square-max2 a b c) (sum-square (max1 a b c)(max2 a b c)))