Mercurial > rlm
view src/rlm/twitter.clj @ 9:1065e7d615a4 tip
deactivate some cruft.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 08 Jul 2013 12:51:12 -0400 |
parents | 78a630e650d2 |
children |
line wrap: on
line source
1 (ns rlm.twitter2 (:use [clojure.contrib.duck-streams :as ds :only []]3 [clojure.contrib.def :as def :only []]))5 (def/defn-memo available-name? [user]6 (not7 (re-matches8 #".*has already been taken.*"9 (ds/slurp*10 (str "https://twitter.com/users/username_available?username=" user)))))12 (def naturals (iterate inc 0))14 (filter (comp not nil?)15 (pmap (fn [num] (if (available-name? num) num nil))16 (apply vector (take 6000 naturals))))