Clojure堆栈溢出使用递归，懒惰序列？
|
我已经读过其他人有关Clojure中出现堆栈溢出问题的问题，该问题往往是某个地方建立的惰性序列。这似乎是这里的问题，但是对于我一生来说，我不知道在哪里。
这是代码，代码后面有一点解释：
(defn pare-all []
\"writes to disk, return new counts map\"
(loop [counts (counted-origlabels)
songindex 0]
(let [[o g] (orig-gen-pair songindex)]
(if (< songindex *song-count*) ;if we are not done processing list
(if-not (seq o) ;if there are no original labels
(do
(write-newlabels songindex g);then use the generated ones
(recur counts (inc songindex)))
(let [{labels :labels new-counts :countmap} (pare-keywords o g counts)] ;else pare the pairs
(write-newlabels songindex labels)
(recur new-counts (inc songindex))))
counts))))
(defn process-song [counts songindex]
(let [[o g] (orig-gen-pair songindex)]
(if-not (seq o) ;;if no original labels
(do
(write-newlabels songindex g);then use the generated ones
counts)
(let [{labels :labels new-counts :countmap} (pare-keywords o g counts)] ;else pare the pairs
(write-newlabels songindex labels)
new-counts))))
(defn pare-all []
(reduce process-song (counted-origlabels) (range *song-count*)))
没有找到相关结果
已邀请:
1 个回复
锹缄
(defn do-the-thing [entry index counts] (let [[o g] (orig-gen-pair index)] (if-not (seq o) (write-newlabels index g) (let [{labels :labels new-counts :countmap} (pare-keywords o g counts)] (write-newlabels index labels))))) (map do-the-thing (counted-origlabels) (range) (constantly (counted-origlabels)))