Skip to content

Instantly share code, notes, and snippets.

@visibletrap

visibletrap/reverse-interleave.clj

Created September 15, 2012 00:36
Show Gist options
  • Save visibletrap/3725817 to your computer and use it in GitHub Desktop.
Save visibletrap/3725817 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reverse-interleave.clj
;(= (__ [1 2 3 4 5 6] 2) '((1 3 5) (2 4 6)))
;(= (__ (range 9) 3) '((0 3 6) (1 4 7) (2 5 8)))
;(= (__ (range 10) 5) '((0 5) (1 6) (2 7) (3 8) (4 9)))
(fn [coll n]
(sort-by first <
(map (fn [y] (filter #(= (mod % n) y) coll)) (range n))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment