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