Source
clojure/contrib/pprint/utilities.clj:26
top
(defn map-passing-context [func initial-context lis]
(loop [context initial-context
lis lis
acc []]
(if (empty? lis)
[acc context]
(let [this (first lis)
remainder (next lis)
[result new-context] (apply func [this context])]
(recur new-context remainder (conj acc result))))))
Comments top
No comments for map-passing-context. Log in to add a comment.