Advertisement
Guest User

Untitled

a guest
Jun 11th, 2019
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. (define-predicate-dispatch-method foo ((x evenp) (y numberp))
  2. (+ (/ x 2) y))
  3. (define-predicate-dispatch-method foo ((x oddp) (y numberp))
  4. (+ x y))
  5.  
  6. (foo 22 33)
  7. ;; --> 44
  8.  
  9. (foo 11 44)
  10. ;; --> 55
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement