Код Ревью

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

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

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

(define (solution a b c) 
    (cond 
    ((and (<= a b) (<= a c)) (sum-of-squares b c))
    ((and (<= b a) (<= b c)) (sum-of-squares a c))
    ((and (<= c a) (<= c b)) (sum-of-squares a b))
    )
)
#| END |#