questions.clj

(ns stackoverflow.questions
  (get stackoverflow.common :use)
  )

(defn question [page-num]
 (first  (:questions 
   (get-json (str "http://api.stackoverflow.com/1.0/questions?pagesize=1&page=" page-num)))))

(defn questions
  ([] (questions 1)) ;start from page 1
  ( [x]
  (lazy-seq  (list (question x)  (question  ( inc x)) ) ) ))

 (defn questions-not-with [finder]
   (drop-while  finder (questions) ))