java.lang.StackOverflowError trong clojure đuôi đệ quy

Question

Tôi gặp StackOverflowError cho đoạn mã sau:

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

mặc dù sử dụng vòng lặp sẽ làm cho nó hoạt động:

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

gì đi sai với mã trước không có vòng lặp?

Answer 1

lỗi của bạn là ở đây:

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

Bạn đang gọi điện thoại recursive-reverse với một đối số (vector). Điều này gọi cùng một danh sách đối số của hàm, do đó, nó đệ quy và tạo khung ngăn xếp mỗi lần.

Thay đổi nó để:

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

và bạn sẽ có ngay.

(Ngoài ra, vấn đề riêng biệt, nhưng tôi sẽ thường làm kiểm tra cho nil hơn '() và sử dụng next hơn rest. Tôi không nghĩ rằng nó có bất kỳ lợi thế thực sự về hiệu suất hoặc bất cứ điều gì, nhưng có vẻ sạch hơn để tôi.)

Answer 2

này đã làm việc cho tôi:

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

Bạn đã vượt qua đối số cho recursive-reverse bên trong một vài dấu ngoặc không cần thiết, đó là tất cả.