小编w8s*_*std的帖子

(defn DoubleFrequency [] 
(def s (slurp "Example.txt"))
(def m (reduce #(assoc %1 %2 (inc (%1 %2 0)))
    {}
    (re-seq #".." s)))
(def c (count m))   
(doseq [[k x] m]
    (println k ":" (/ x c))))   

我正在尝试将并发应用于我的程序，并且我想使用 pmap，但我不确定如何将它应用到我当前的代码中。该功能对于单核是正确的，但理想情况下，我想以某种方式用 pmap 替换 reduce 并获得相同的结果。