Code Review

Compare your solutions

    #| BEGIN (Введите свое решение) |#
(define (solution x y z)
  (define max (cond((and (> x y) (> x z)) x)
                   ((and (> y x) (> y z)) y)
                   (else z)))
  (+ (* max max)
     (cond((and (< x max) (or (> x y)(> x z))) (* x x))
          ((and (< y max) (or (> y x)(> y z))) (* y y))
          (else (* z z)))
     ))
#| END |#
    #| BEGIN (Введите свое решение) |#
   (define (solution a b c)
   (cond ((and (>= b a)(>= c a))(+ (* b b)(* c c)))
          ((and (>= a b)(>= c b))(+ (* a a)(* c c)))
          ((and (>= a c)(>= b c))(+ (* a a)(* b b)))))

#| END |#
    #| BEGIN (Введите свое решение) |#
(define (solution x y z)
  (define max (cond((and (> x y) (> x z)) x)
                   ((and (> y x) (> y z)) y)
                   (else z)))
  (+ (* max max)
     (cond((and (< x max) (or (> x y)(> x z))) (* x x))
          ((and (< y max) (or (> y x)(> y z))) (* y y))
          (else (* z z)))
     ))
#| END |#
    #| BEGIN (Введите свое решение) |#
   (define (solution a b c)
   (cond ((and (>= b a)(>= c a))(+ (* b b)(* c c)))
          ((and (>= a b)(>= c b))(+ (* a a)(* c c)))
          ((and (>= a c)(>= b c))(+ (* a a)(* b b)))))

#| END |#