clojure - 在 Clojure 中按分隔符分割序列？

Question

假设我在 clojure 中有一个序列，例如

'(1 2 3 6 7 8)

我想将其拆分，以便每当遇到可被 3 整除的元素时列表就会拆分，结果如下

'((1 2) (3) (6 7 8))

(编辑:我真正需要的是

[[1 2] [3] [6 7 8]]

，但我也会采用序列版本:)

在 Clojure 中执行此操作的最佳方法是什么？

partition-by 没有帮助:

(partition-by #(= (rem % 3) 0) '(1 2 3 6 7 8))
; => ((1 2) (3 6) (7 8))

split-with 关闭:

(split-with #(not (= (rem % 3) 0)) '(1 2 3 6 7 8))
; => [(1 2) (3 6 7 8)]

Answer 1

类似这样的吗？

(defn partition-with
  [f coll]
  (lazy-seq
    (when-let [s (seq coll)]
      (let [run (cons (first s) (take-while (complement f) (next s)))]
        (cons run (partition-with f (seq (drop (count run) s))))))))

(partition-with #(= (rem % 3) 0) [1 2 3 6 7 8 9 12 13 15 16 17 18])
=> ((1 2) (3) (6 7 8) (9) (12 13) (15 16 17) (18))