Раздвижное окно над сек
Вопрос
В Clojure, что было бы самым хорошим способом иметь скользящее окно над (конечным, не слишком большим) последовательностью? Должен ли я просто использовать drop
и take
и отслеживать текущий индекс или есть более хороший способ, по которому я скучаю?
Решение
Я думаю, что раздел с шагом 1 это делает:
user=> (partition 3 1 [3 1 4 1 5 9])
((3 1 4) (1 4 1) (4 1 5) (1 5 9))
Другие советы
Если вы хотите работать с окнами, это также может быть удобно сделать с картой:
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)
Я не знал, что 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))))))
Не связан с StackOverflow