Код Ревью

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

    #| BEGIN (Введите свое решение) |#
(define (solution x y z)
    (cond
      ((= x y z) (* 2 (* x x)))
      ((or (>= x y z) (>= y x z)) (+ (* x x) (* y y)))
      ((or (>= y z x) (>= z y x)) (+ (* y y) (* z z)))
      ((or (>= z x y) (>= x z y)) (+ (* z z) (* x x)))
      (else 1)))
#| END |#