Clojurians Log v2

Thanks for you response, but please note that the computation of :k i based on the current :v and the sum of all previous :v 's. In your example, the result is:

{:vals [{:v 1 :k (/ 1 1111)} {:v 10 :k (/ 10 1111)} {:v 100 :k (/ 100 1111)} {:v 1000 :k (/ 1000 1111)}]}

ah I see

it's doable with zipper navigators and a recursive-path but it's probably easier just to do a reduce of some sort

I just implemented mapAccum

(defn map-accum [f init-coll coll]
  (loop [acc init-coll
         result []
         remaining-coll coll]
    (if (empty? remaining-coll)
      result
      (let [[new-acc new-elem] (f acc (first remaining-coll))]
        (recur new-acc (conj result new-elem) (rest remaining-coll))))))