Код Ревью
Сравни свои решения
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| BEGIN (Введите свое решение) |#
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| END |#
(define (solution x y z)
(let ((a (max x y))
(b (max (min x y) z)))
(+ (* a a) (* b b))))
#| END |#
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| BEGIN (Введите свое решение) |#
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum-of-squares-of-two-largest x y z)
(if (>= x y)
(+ (* x x)
(if (>= y z)
(* y y)
(* z z)))
(+ (* y y)
(if (>= x z)
(* x x)
(* z z)))))
#| END |#
(define (solution x y z)
(let ((a (max x y))
(b (max (min x y) z)))
(+ (* a a) (* b b))))
#| END |#