lazy-seq of random users from randomuser.me

lazy-seq-of-users.clj

; start with: lein try clj-http

(require '[clj-http.client :as http])

(defn fetch-random-users [n] 
  (->> (http/get "http://api.randomuser.me/" {:query-params {:results n} :as :json})
       :body
       :results
       (map :user)))
 
(defn users []
  (lazy-seq (concat (fetch-random-users 5) (users))))

(doseq [user (take 15 (users))]
  (println "user:" (:email user)))

modified from https://gist.github.com/ikitommi/5a34b1a660550404d8f9