Advertisement
Guest User

Untitled

a guest
Jul 29th, 2015
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. (define (sum_squares a b)
  2. (+ (* a a) (* b b)))
  3. (define (kill_small x y z)
  4. (cond ((and (< x y) (< x z)) (sum_squares y z))
  5. ((and (< y x) (< y z)) (sum_squares x z))
  6. ((and (< z y) (< z x)) (sum_squares x y))))
  7.  
  8. (kill_small 5 2 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement