Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save chrisvest/952135 to your computer and use it in GitHub Desktop.
Save chrisvest/952135 to your computer and use it in GitHub Desktop.
;; chrisvest's solution to http://4clojure.com/problem/54
(fn [n xs]
(let [len (count xs)
stops (range 0 (- len (mod len n)) n)]
(map (fn [x] (subvec (vec xs) x (+ x n))) stops)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment