Код Ревью

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

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-square x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond 
        ((and (>= a b) (>= b c)) (sum-of-square a b))
        ((and (>= b a) (>= c a)) (sum-of-square b c))
        (else (sum-of-square a c))
   ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-square x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond 
        ((and (>= a b) (>= b c)) (sum-of-square a b))
        ((and (>= b a) (>= c a)) (sum-of-square b c))
        (else (sum-of-square a c))
   ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-square x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond 
        ((and (>= a b) (>= b c)) (sum-of-square a b))
        ((and (>= b a) (>= c a)) (sum-of-square b c))
        (else (sum-of-square a c))
   ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-square x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond 
        ((and (>= a b) (>= b c)) (sum-of-square a b))
        ((and (>= b a) (>= c a)) (sum-of-square b c))
        (else (sum-of-square a c))
   ))
#| END |#