java.lang.StackOverflowError的Clojure中尾遞歸

Question

我遇到的StackOverflowError以下代碼：

(defn recursive-reverse 
    ([coll] (recursive-reverse [coll nil])) 
    ([coll acc] 
    (if (= coll '()) acc 
     (recur (rest coll) (cons (first coll) acc))))) 

雖然使用循環會使其工作：

(defn recursive-reverse [lst] 
    (loop [coll lst acc nil] 
    (if (= coll '()) acc 
     (recur (rest coll) (cons (first coll) acc))))) 

錯在現有代碼沒有循環？

Answer 1

你的錯誤是在這裏：

([coll] (recursive-reverse [coll nil])) 

你打電話recursive-reverse有一個參數（矢量）。這將調用該函數的相同參數列表，因此它會遞歸執行並每次創建一個堆棧幀。

將其更改爲：

([coll] (recursive-reverse coll nil)) 

，你應該是正確的。

（同樣，單獨的問題，但我一般不檢查nil，而不是'()和使用next而非rest，我不認爲它在性能或任何方面的任何真正的優勢，但它似乎吸塵器我）。

Answer 2

這爲我工作：

(defn recursive-reverse 
    ([coll] (recursive-reverse coll nil)) 
    ([coll acc] 
    (if (= coll '()) acc 
     (recur (rest coll) (cons (first coll) acc))))) 

您傳遞的參數recursive-reverse幾個不必要的括號內，僅此而已。