Код Ревью

Сравни свои решения

    #| BEGIN (Write your solution here) |#
(define (square x)
  (* x x)
  )

(define (bigger x y)
  (if (> x y)
      x
      y)
  )

(define (smaller x y)
  (if (< x y)
      x
      y)
  )

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

(define (solution x y z)
  (sum-of-squares (bigger x y)
                  (bigger (smaller x y) z)
                  )
  )

#| END |#