Код Ревью
Сравни свои решения
#| 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 |#