Mercurial > rlm
view 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 |
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))))