Skip to content

Instantly share code, notes, and snippets.

@danneu

danneu/parse-csv.clj

Created January 27, 2014 06:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save danneu/8644022 to your computer and use it in GitHub Desktop.
Save danneu/8644022 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
parse-csv.clj
(with-open [rdr (io/reader csv :encoding "UTF-16")]
(let [extract-url-hash (fn [line]
(let [[_ _ _ url & _] (str/split line #"\t")]
[(m/md5 url) url]))]
(->> (drop 1 (line-seq rdr))
(map extract-url-hash)
(into {}))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment