Exercise 1.3 Sum of the squares
Cerenov

Code Review

Compare your solutions
    #| 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 |#