clojure尾递归中的java.lang.StackOverflowError

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.我不认为它在性能或任何方面有任何实际优势,但对我来说似乎更清晰.)