daily pastebin goal
48%
SHARE
TWEET

Untitled

a guest May 16th, 2018 102 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn take-tweets [n]
  2.   (take n (map read-json
  3.                (line-seq (reader
  4.                           (get-stream))))))
  5.  
  6. (defn tweet-text [n]
  7.   (map #(get % "text")
  8.        (take-tweets n)))
  9.  
  10. (defn search-text [s coll]
  11.   (let [regex-pattern (re-pattern (str s))]
  12.     (filter #(re-find regex-pattern %) coll)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top