clojure - 如何在分隔符上拆分向量

Question

我有一个包含数字的向量。向量的结构如下:

1. 任意长度的项目
2. 项目之间的分隔符 [0 0 0 0 0](0 重复 5 次)

我想写一个函数 split 来检索项目列表(没有分隔符):它类似于 string/split .

例如:

(split [123 0 1 0 0 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 199])
; => [[123 0 1] [1 1] [1 0 1] [0 0 1 199]]

注意:代码必须有效，因为向量的长度在100万左右。

感谢您的帮助。

Answer 1

这里:

(defn the-split [coll] 
  (let [part   (partition-by identity coll)
        ppart  (partition-by #(= [0 0 0 0 0] %) part)
        almost (map #(apply concat %) ppart)]
    (filter (partial not= [0 0 0 0 0]) almost)))


(the-split [123 0 1 0 0 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 0 0 0 1 199])
=> ((123 0 1) (1 1) (1 0 1) (1 199))