java.lang.StackOverflowError en la recursión de cola clojure

Question

me encontré con la StackOverflowError para el siguiente código:

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

aunque el uso del bucle sería hacer que funcione:

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

Qué va mal con el código antes sin lazo?

Answer 1

Su error está aquí:

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

Estás llamando recursive-reverse con un argumento (un vector). Esto llama a la misma lista de argumentos de la función, por lo que lo hace recursivamente y crea un marco de pila cada vez.

Cambiar a:

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

y que debe estar bien.

(También, tema aparte, pero yo por lo general no la comprobación de nil en lugar de '() y usando en lugar de nextrest. No creo que tenga ninguna ventaja real en términos de rendimiento o cualquier cosa, pero parece más limpio para yo.)

Answer 2

Esto funcionó para mí:

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

Se pasaron los argumentos a recursive-reverse dentro de un par de soportes innecesarios, eso es todo.