weekdays in a range

gistfile1.clj

(ns date-example
  (:import java.util.Date)
  (:import java.text.DateFormat))

(def df (DateFormat/getDateInstance))

; Simon's bit

(defn weekdays-in-range [start-date end-date]
  (let [one-day  (* 1000 60 60 24) ; millisecs
        days     (map #(new Date %) (range (.getTime start-date)
                                           (+ (* one-day 0.5) (.getTime end-date))
                                           one-day))]
    (filter #(some #{(.getDay %)} [1 2 3 4 5]) days)))


(doseq [day (weekdays-in-range (.parse df "1/1/2011") (.parse df "1/8/2011"))]
  (println day))