Код Ревью

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

    #| BEGIN (Введите свое решение) |#
(define (sum-of-square a b c)
  (if (and (<= a b) (<= a c))
      (+ (* b b) (* c c))
      (if (and (<= b a) (<= b c))
          (+ (* a a) (* c c))
          (+ (* a a) (* b b)))))
#| END |#