ex1.3

세 숫자를 인자로 받아 그 가운데 큰 숫자 두 개를 제곱한 다음, 그 두 값을 덧셈하여 내놓는 프로시저

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

(define (sum_of_squares a b) (+ (square a) (square b)))

(cond ((= (min a b c) a) (sum_of_squares b c))
        ((= (min a b c) b) (sum_of_squares a c))
        (else (calc a b)))