**Not a member of Pastebin yet?**

**, it unlocks many cool features!**

__Sign Up__- (defun square (x) (* x x))
- (defun sum-square-max-2 (a b c)
- (if (< a b)
- (if (< c a)
- (+ (square a) (square b))
- (+ (square c) (square b)))
- (if (< c b)
- (+ (square b) (square a))
- (+ (square c) (square a)))))
- (defun sum-square-max-2 (a b c)
- (cond
- ((< c a b) (+ (square a) (square b)))
- ((< a c b) (+ (square c) (square b)))
- ((< c b a) (+ (square a) (square b)))
- (t (+ (square c) (square a)))))

RAW Paste Data