clojure - Clojure 中的滚动平均值序列

Question

我正在寻找一种优雅的方法来生成数字序列的滚动平均值序列。希望有比使用lazy-seq更优雅的东西

Answer 1

不考虑效率:

(defn average [lst] (/ (reduce + lst) (count lst)))

(defn moving-average [window lst] (map average (partition window 1 lst)))


user> (moving-average 5 '(1 2 3 4 5 6 7 8))
(3 4 5 6)

如果您需要速度更快，则需要进行一些相当明显的改进!但它会变得不那么优雅。