gistfile1.rkt

#lang racket
(require rackunit)

;; BEGIN
(define (sqr x) 
  (* x x))

(define (max x y)
  (if (> x y) x y))

(define (min x y)
  (if (< x y) x y))

(define (sum-of-squares-of-top-two x y z)
  (+ 
   (sqr (max x y)) 
   (sqr (max z (min x y)))))
;; END

(check-equal? (sum-of-squares-of-top-two 1 2 3) 13)
(check-equal? (sum-of-squares-of-top-two 3 4 2) 25)
(check-equal? (sum-of-squares-of-top-two 5 3 4) 41)