Код Ревью

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

    #| BEGIN (Введите свое решение) |#
; Solution
(define (square x) (* x x))

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

(define (solution x y z)
  (cond ((and (<= x y) (<= x z)) (sum-square y z))
        ((and (<= y x) (<= y z)) (sum-square x z))
        (else                    (sum-square x y))))
#| END |#