Skip to content

Instantly share code, notes, and snippets.

@alandipert

alandipert/extraleave.clj

Last active December 18, 2015 18:39
Show Gist options
  • Save alandipert/5827439 to your computer and use it in GitHub Desktop.
Save alandipert/5827439 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
extraleave.clj
(defn extraleave
[n coll]
(->> (repeat coll)
(map drop (range n))
(map (partial take-nth n))))
(comment
(->> (interleave [1 2 3] [4 5 6])
(extraleave 2)) ;=> ((1 2 3) (4 5 6))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment