Код Ревью

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

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)) )
(define (<= x y) (or (< x y) (= x y)))
(define (solution x y z)
    (cond ((and (<= x y) (<= x z)) (sum-of-squares y z))
          ((and (<= y x) (<= y z)) (sum-of-squares x z))
          ((and (<= z x) (<= z y)) (sum-of-squares x y))
        ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)) )
(define (<= x y) (or (< x y) (= x y)))
(define (solution x y z)
    (cond ((and (<= x y) (<= x z)) (sum-of-squares y z))
          ((and (<= y x) (<= y z)) (sum-of-squares x z))
          ((and (<= z x) (<= z y)) (sum-of-squares x y))
        ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)) )
(define (<= x y) (or (< x y) (= x y)))
(define (solution x y z)
    (cond ((and (<= x y) (<= x z)) (sum-of-squares y z))
          ((and (<= y x) (<= y z)) (sum-of-squares x z))
          ((and (<= z x) (<= z y)) (sum-of-squares x y))
        ))
#| END |#
    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)) )
(define (<= x y) (or (< x y) (= x y)))
(define (solution x y z)
    (cond ((and (<= x y) (<= x z)) (sum-of-squares y z))
          ((and (<= y x) (<= y z)) (sum-of-squares x z))
          ((and (<= z x) (<= z y)) (sum-of-squares x y))
        ))
#| END |#