Skip to content

Instantly share code, notes, and snippets.

@betamatt

betamatt/split_lines.clj

Created December 21, 2014 19:18
Show Gist options
  • Save betamatt/f73ee0289e0cb15bce0a to your computer and use it in GitHub Desktop.
Save betamatt/f73ee0289e0cb15bce0a to your computer and use it in GitHub Desktop.
Download ZIP
Line sequencing
Raw
split_lines.clj
(defn- split-lines
"Takes a sequence of content chunks and returns a lazy sequence of individual lines.
(\"abc\" \"de\\nabc\") becomes (\"abcde\" \"abc\")"
[stream]
(let [
chunk (first stream)
remainder (rest stream)
[line leftover] (string/split chunk #"\n+" 2)]
(if leftover
(lazy-seq (cons line (split-lines (cons leftover remainder))))
(recur (cons
(string/join "" (cons line (first remainder)))
(rest remainder))))))
@willscripted
Copy link

Played around and came up with something similar to icambron, but without all the fancy threading. A nice trick 👍 Noted...

(dechunk chunks) could be replaced with (mapcat #(seq %) chunks) i think

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment