Mercurial > rlm
annotate src/rlm/twitter.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.twitter |
| rlm@0 | 2 (:use [clojure.contrib.duck-streams :as ds :only []] |
| rlm@0 | 3 [clojure.contrib.def :as def :only []])) |
| rlm@0 | 4 |
| rlm@0 | 5 (def/defn-memo available-name? [user] |
| rlm@0 | 6 (not |
| rlm@0 | 7 (re-matches |
| rlm@0 | 8 #".*has already been taken.*" |
| rlm@0 | 9 (ds/slurp* |
| rlm@0 | 10 (str "https://twitter.com/users/username_available?username=" user))))) |
| rlm@0 | 11 |
| rlm@0 | 12 (def naturals (iterate inc 0)) |
| rlm@0 | 13 |
| rlm@0 | 14 (filter (comp not nil?) |
| rlm@0 | 15 (pmap (fn [num] (if (available-name? num) num nil)) |
| rlm@0 | 16 (apply vector (take 6000 naturals)))) |