sicp 1.3

gistfile1.txt

(define (hoge a b c)
  (define (square x) (* x x))
  (define (minimum x y) (if (< x y) x y))
  (- 
	(+ (square a) (square b) (square c))
	(square (minimum a (minimum b c)))))