Advertisement
Guest User

Untitled

a guest
Apr 25th, 2014
42
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. user> (condp some [1 2 3 4]
  2. #{5} :>> inc
  3. :the-default-value)
  4.  
  5. :the-default-value
  6.  
  7. user> (some #{5} [1 2 3 4])
  8. nil
  9.  
  10. user> (condp some [1 2 3 4] #{1} :>> inc :the-default-value)
  11. 2
  12.  
  13. user> (some #{1} [1 2 3 4])
  14. 1
  15.  
  16. (some #{0 6 7} [1 2 3 4])
  17.  
  18. user> (some #{4 5 9} [1 2 3 4])
  19. 4
  20.  
  21. user> (dec 4)
  22. 3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement