SICP Exercise 1.3

gistfile1.scm

SICP 1.3
Fork me. Solve me.
====

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

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

(define (sum-two-largest-squares a b c)
  (cond ((and (< a b) (< a c))
	 (sum-of-squares b c))
	((and (< b a) (< b c))
	 (sum-of-squares a c))
	(else
	 (sum-of-squares a b)) ))