Код Ревью

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

    #| BEGIN (Write your solution here) |#
(define (solution a b c)
  (define (square x) (* x x))
  (define (sum-of-squares x y)
    (+ (square x) (square y)))
  (cond ((and (<= a b) (<= a c)) (sum-of-squares b c))
        ((and (<= b a) (<= b c)) (sum-of-squares a c))
        ((and (<= c b) (<= c a)) (sum-of-squares a b))))
#| END |#
    #| BEGIN (Write your solution here) |#
(define (solution a b c)
  (define (square x) (* x x))
  (define (sum-of-squares x y)
    (+ (square x) (square y)))
  (cond ((and (< a b) (< b c)) (sum-of-squares b c))
        ((and (< b a) (< a c)) (sum-of-squares a c))
        ((and (< c b) (< b a)) (sum-of-squares a b))))
#| END |#
    #| BEGIN (Write your solution here) |#
(define (square x) (* x x))

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

(define (solution a b c)
  (cond ((and (<= a b) (<= b c)) (sum-of-squares b c))
        ((and (<= b a) (<= a c)) (sum-of-squares a c))
        ((and (<= c b) (<= b a)) (sum-of-squares a b))))
#| END |#
    #| BEGIN (Write your solution here) |#
(define (solution a b c)
  (define (square x) (* x x))
  (define (sum-of-squares x y)
    (+ (square x) (square y)))
  (cond ((and (<= a b) (<= a c)) (sum-of-squares b c))
        ((and (<= b a) (<= b c)) (sum-of-squares a c))
        ((and (<= c b) (<= c a)) (sum-of-squares a b))))
#| END |#
    #| BEGIN (Write your solution here) |#
(define (solution a b c)
  (define (square x) (* x x))
  (define (sum-of-squares x y)
    (+ (square x) (square y)))
  (cond ((and (< a b) (< b c)) (sum-of-squares b c))
        ((and (< b a) (< a c)) (sum-of-squares a c))
        ((and (< c b) (< b a)) (sum-of-squares a b))))
#| END |#
    #| BEGIN (Write your solution here) |#
(define (square x) (* x x))

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

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