gistfile1.txt

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

(define (square a) (* a a))
(define (sum-of-squares  a b) (+ (square a) (square b)))
(define (square-biggest-two a b c smallest) 
  (cond ((= a smallest) (sum-of-squares b c))
        ((= b smallest) (sum-of-squares a c))
        ((= c smallest) (sum-of-squares a b))
  )
)
(define (sum-sizable-squares a b c) (square-biggest-two a b c (min a b c)))