Код Ревью
Сравни свои решения
#| BEGIN (Write your solution here) |#
((define sum_sqr x y z) (+ (* x x) (* y y) (* z z)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (solution x y z)
(
cond
((and (= x (max x y z)) (= y (max y z))) (+ (* x x) (* y y )))
((and (= x (max x y z)) (= z (max y z))) (+ (* x x) (* z z )))
((and (= y (max x y z)) (= x (max x z))) (+ (* y y) (* x x )))
((and (= y (max x y z)) (= z (max x z))) (+ (* y y) (* z z )))
((and (= z (max x y z)) (= x (max x y))) (+ (* z z) (* x x )))
((and (= z (max x y z)) (= y (max x y))) (+ (* z z) (* y y )))
)
)
#| END |#
#| BEGIN (Write your solution here) |#
((define sum_sqr x y z) (+ (* x x) (* y y) (* z z)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (solution x y z)
(
cond
((and (= x (max x y z)) (= y (max y z))) (+ (* x x) (* y y )))
((and (= x (max x y z)) (= z (max y z))) (+ (* x x) (* z z )))
((and (= y (max x y z)) (= x (max x z))) (+ (* y y) (* x x )))
((and (= y (max x y z)) (= z (max x z))) (+ (* y y) (* z z )))
((and (= z (max x y z)) (= x (max x y))) (+ (* z z) (* x x )))
((and (= z (max x y z)) (= y (max x y))) (+ (* z z) (* y y )))
)
)
#| END |#