Skip to content

Instantly share code, notes, and snippets.

@MayDaniel

MayDaniel/partition-when.clj

Created November 27, 2010 18:16
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save MayDaniel/718135 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save MayDaniel/718135 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
partition-when.clj
(defn partition-when [pred coll]
(lazy-seq
(when-let [s (seq coll)]
(let [[head tail] (split-with pred s)]
(cons head (partition-when (complement pred) tail))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment