Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (sumSqr x y z)
- (cond ((and (> x y) (> z y)) (+ (* x x) (* 2 x z) (* z z)))
- ((and (> y x) (> z x)) (+ (* y y) (* 2 z y) (* z z)))
- ((and (> x z) (> y z)) (+ (* x x) (* 2 x y) (* y y)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement