Mercurial > rlm

view src/rlm/twitter.clj @ 3:c8e35134bf8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on qotd.
author Robert McIntyre <rlm@mit.edu>
date Wed, 18 Jan 2012 05:18:57 -0700
parents 78a630e650d2
children
line wrap: on
line source
     1 (ns rlm.twitter



     2   (:use [clojure.contrib.duck-streams :as ds :only []]



     3 	[clojure.contrib.def :as def :only []]))



     4   



     5 (def/defn-memo available-name? [user]



     6   (not



     7    (re-matches



     8     #".*has already been taken.*"



     9     (ds/slurp*



    10      (str "https://twitter.com/users/username_available?username=" user)))))



    11 



    12 (def naturals (iterate inc 0))



    13 



    14 (filter (comp not nil?)



    15 	(pmap (fn [num] (if (available-name? num) num nil))



    16 	      (apply vector (take 6000 naturals))))