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