algorithm - 如何在 Clojure 中将序列划分为递增的子序列？

Question

我有一个整数序列，我想将它们分成递增的段，并且我希望段数尽可能少。所以我想拥有

(segmentize [1 2 3 4 3 8 9 1 7] <=)
;=> [[1 2 3 4][3 8 9][1 7]]

我已经按如下方式实现了分段:

(defn segmentize [col lte]
  (loop [col col s [] res []]
    (cond (empty? col) (conj res s)
          (empty? s) (recur (rest col) (conj s (first col)) res)
          (lte (last s) (first col)) (recur (rest col) (conj s (first col)) res)
          :else (recur col [] (conj res s)))))

但我想知道是否已经有一些方便的 clojure 函数可以做到这一点，或者是否有更惯用的方法来做到这一点。

Answer 1

您可以构建this使用分区方式

(defn segmentize [cmp coll]
  (let [switch (reductions = true (map cmp coll (rest coll)))]
    (map (partial map first) (partition-by second (map list coll switch)))))

(segmentize <= [1 2 3 4 3 8 9 1 7])
;=> ((1 2 3 4) (3 8 9) (1 7))

如果你真的想要向量而不是惰性序列，最后一行的前两个 map 可以更改为 mapv。