Reading CSV

gistfile1.clj

(ns csv
  (import com.csvreader.CsvReader))

(defn csv-seq
  "Return a lazy sequence of records (vectors) from CSV file"
  [filename]
  (let [csv (CsvReader. filename)
        read-record (fn [] 
                      (when (.readRecord csv) 
                        (into [] (.getValues csv))))]
    (take-while (complement nil?) (repeatedly read-record))))

(defn csv-header-seq
  "Return a lazy sequence of record (maps) from CSV file with header"
  [filename]
  (let [records (csv-seq filename)]
    (map #(zipmap (first records) %) (rest records))))