How about this?
(defn left-total [coll]
(map (fn [[l r]] [l (reduce + r)])
(for [i (range (count coll))]
[(first (drop i coll)) (take i coll)])))
-m
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
