1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/rlm/twitter.clj	Tue Oct 18 00:57:08 2011 -0700
     1.3 @@ -0,0 +1,16 @@
     1.4 +(ns rlm.twitter
     1.5 +  (:use [clojure.contrib.duck-streams :as ds :only []]
     1.6 +	[clojure.contrib.def :as def :only []]))
     1.7 +  
     1.8 +(def/defn-memo available-name? [user]
     1.9 +  (not
    1.10 +   (re-matches
    1.11 +    #".*has already been taken.*"
    1.12 +    (ds/slurp*
    1.13 +     (str "https://twitter.com/users/username_available?username=" user)))))
    1.14 +
    1.15 +(def naturals (iterate inc 0))
    1.16 +
    1.17 +(filter (comp not nil?)
    1.18 +	(pmap (fn [num] (if (available-name? num) num nil))
    1.19 +	      (apply vector (take 6000 naturals))))