Advertisement
Guest User

Untitled

a guest
Oct 4th, 2014
240
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn get-price-from-url
  2.   [url]
  3.   (second (re-matches price-regex (fetch-url url))))
  4.  
  5. (defn get-price-from-urls
  6.   [url-list]
  7.   (map get-price-from-url url-list))
  8.  
  9. user> (map get-price-from-url [url1 url2])
  10. ("$15.32" "$15.32")
  11. user> (get-price-from-urls [url1 url2])
  12. nil
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement