I have a function
(defn change-score [docid termid]
(do (dosync (alter *documents-scores* assoc docid (+ 1 (*documents-scores* docid))))
nil) )
(defn vector-space[]
(loop [terms (count (deref *term-hash*))]
(if (zero? terms)
nil
(do
(dorun (map (fn[docid](change-score docid terms)) (doc-list terms)))
(recur (dec terms))))))
Is there an alternative to map in the function?