有没有替代map的方法来将函数应用于Clojure中序列中的所有对象？

Question

我有一个函数

(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))))))

在函数中有没有替代map的方法？

Answer 1

doseq正是为了这个目的。

(doseq [x xs] (side-effect x))