Replacement for clojure.math.combinatorics/partitions that preserves ordering --- see discussion at https://groups.google.com/forum/m/#!topic/clojure/DoEMT45VpAo

ordered-partitions.cljs

(require '[clojure.math.combinatorics :as c])
(defn breaks->partition 
  ([v brks]
   (breaks->partition 0 [] v brks))
  ([start pars v brks]
   (if (empty? brks)
     (conj pars (subvec v start (count v)))
     (let [this-part (subvec v start (first brks))]
       (recur (first brks) (conj pars this-part) v (rest brks))))))

(defn min-parts [min splits]
  (>= (count splits) (- min 1)))

(defn max-parts [max splits]
  (<= (count splits) (- max 1)))

(defn ordered-partitions [v & {:keys [max min]}]
  (let 
    [s (c/subsets (range 1 (count v)))
     fs (cond
          (and max min) 
          (filter 
            (partial max-parts max) 
            (filter (partial min-parts min) s))
          max (filter (partial max-parts max) s)
          min (filter (partial min-parts min) s)
          :else s)]
(map (partial breaks->partition v) fs)))