Comparing different solutions to http://www.4clojure.com/problem/43

gistfile1.clj

; my incredibly ugly solution

(fn rinter [s parts]
  (letfn [(mod-index [s n] (keep-indexed (fn [index item] [(rem index n) item]) s))]
    (map (fn [place]
           (reduce (fn [acc [index v]]
                     (if (= index place)
                         (conj acc v)
                         acc))
                   []
                   (mod-index s parts)))
         (range parts))))



; daowen's elegant, idiomatic solution

#(apply map list (partition %2 %))