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 the map in function?
source share