滑动窗口技术在序列上的应用

Question

在Clojure中，如何以最好的方式在（有限且不太大的）序列上使用滑动窗口？我应该只使用drop和take并跟踪当前索引，还是我错过了更好的方法？

- pmf

Answer 1

我认为使用步长为1的partition函数即可实现：

user=> (partition 3 1 [3 1 4 1 5 9])
((3 1 4) (1 4 1) (4 1 5) (1 5 9))

- Jonas

Answer 2

如果您想在Windows上操作，使用地图也可以很方便：

user=> (def a [3 1 4 1 5 9])
user=> (map (partial apply +) (partition 3 1 a))
(8 6 10 15)
user=> (map + a (next a) (nnext a))
(8 6 10 15)

- Timothy Pratley

Answer 3

我不知道 partition 可以这样做，所以我就用了这种方式实现它。

(defn sliding-window [seq length]
  (loop [result ()
         remaining seq]
    (let [chunk (take length remaining)]
      (if (< (count chunk) length)
        (reverse result)
        (recur (cons chunk result) (rest remaining))))))

- little-dude