Skip to content

Instantly share code, notes, and snippets.

@t-ob

t-ob/take-while-plus-one

Created August 1, 2014 09:44
Show Gist options
  • Save t-ob/b38500a8ca7e1be2b68a to your computer and use it in GitHub Desktop.
Save t-ob/b38500a8ca7e1be2b68a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
take-while-plus-one
(defn take-while-plus-one [f [x & rest :as coll]]
(when (seq coll)
(if (f x)
(cons x (take-while-plus-one f rest))
(list x))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment