(defn tally [result-seq] (reduce #(apply merge-with + %&) (map #(select-keys % [:success :failure :error :pending]) result-seq)))
Comments top
No comments for tally. Log in to add a comment.