;; make it easier to get off the ground by marking contributors automatically
;; useful since some "in-development" features aren't enabled for all users
"Overwrites the times-solved field in the problems collection based on data from the users collection. Should only be called on server startup since it isn't a safe operation. Also updates the total-solved agent."
(let [+ (fnil+ 0)
(reduce (fn [scores[[idscore]times]]
solved-counts(frequencies(map int (mapcat :solvedusers)))