Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-predicate-dispatch-method foo ((x evenp) (y numberp))
- (+ (/ x 2) y))
- (define-predicate-dispatch-method foo ((x oddp) (y numberp))
- (+ x y))
- (foo 22 33)
- ;; --> 44
- (foo 11 44)
- ;; --> 55
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement