learn-all-the-things.clj

(ns learn-all-the-things)

(require 'clojure.xml)

(defn twitter-followers
  [username]
  (->> (str "https://api.twitter.com/1/users/show.xml?screen_name=" username)
       clojure.xml/parse
       :content
       (filter (comp #{:followers_count} :tag))
       first
       :content
       first Integer/parseInt))

(time (twitter-followers "excid3"))
;; "Elapsed time: 83.988 msecs"
;; => 748