example_ch01_03.rkt

#lang racket
(define (sum-squares-of-biggest-nums a b c)
  (cond ((and (< a b) (< a c))
         (+ (* b b) (* c c)))
        ((and (< b a) (< b c))
         (+ (* a a) (* c c)))
        ((and (< c b) (< c a))
         (+ (* b b) (* a a)))
        )
  )