SICP excercise 1.3

1.3.rkt

#lang racket
(define (sum_of_square a b c)
  (cond ((< a b) (< a c) (+ (* b b) (* c c)))
        ((< b c) (< b a) (+ (* a a) (* c c)))
        (else (+ (* a a) (* b b)))
  )
)

(sum_of_square 3 4 5) ;41
(sum_of_square 8 4 5) ;89
(sum_of_square 3 2 1) ;13