Skip to content

Instantly share code, notes, and snippets.

@rauhs

rauhs/transducers.clj

Created February 21, 2017 12:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save rauhs/cd37b0487ad04f77248b39fbcd970007 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save rauhs/cd37b0487ad04f77248b39fbcd970007 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
transducers.clj
(defn compute-between
[f]
(fn [rf]
(let [rf ((drop 1) rf)
p (volatile! 0)]
(completing
(fn [acc v]
(let [p0 @p]
(vreset! p v)
(rf (rf acc (f p0 v)) v)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment