SICP Exercise 1.3

gistfile1.lisp

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

(define (sum-of-squares-of-max-2 a b c)
    (if (> a b)
        (if (> b c)
            (sum-of-squares a b)
            (sum-of-squares a c))
        (if (> a c)
            (sum-of-squares a b)
            (sum-of-squares b c))))