implementation of an exponentially weighted moving-average function (instigated by http://grahamstratton.org/straightornamental/entries/moreclojure)

gistfile1.clj

(defn ema [f values]
  (reductions (fn [running v]
                (let [one-minus-F (- 1 f)] ;naming intermediate results can help with the readability of non-associative operators.
                  (+ (* f v)
                     (* one-minus-F running))))
              values))