Код Ревью

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

    #| BEGIN (Write your solution here) |#
(define (square a) (* a a))
(define (sum-of-squared a b) (+ (square a) (square b)))

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