/#lang racket 

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

(define (sum-of-square x y)
  (+ (square x) (square y) )
  )

(define (BigNumber a b)
  (if (>= a b) a b
    )
  )

(define (Sum-of-BigNumber a b c)
  (cond
  ((>= a (BigNumber b c)) (sum-of-square a (BigNumber b c)))
  ((>= b (BigNumber c a)) (sum-of-square b (BigNumber c a)))
  (else (sum-of-square c (BigNumber a b)))

  )
)

(= (Sum-of-BigNumber 1 3 2) (sum-of-square 3 2) )
(Sum-of-BigNumber 1 3 2)

(Sum-of-BigNumber 2 0 7)
(sum-of-square 2 7)

(Sum-of-BigNumber 2 2 2)
(sum-of-square 2 2)

(Sum-of-BigNumber 1 2 3)
(sum-of-square 2 3)
(= (Sum-of-BigNumber 1 2 3) (sum-of-square 2 3) )
(Sum-of-BigNumber -10 10 10)
(= (Sum-of-BigNumber -10 10 10) (sum-of-square 10 10) )
