clojure - 为什么我在没有显式递归的函数上收到 StackoverflowError

Question

我正在尝试生成一个相对较小(1296 个元素)的向量列表，本质上枚举从 [0 0 0 0] 到 [5 5 5 5] 的 4 个基数 6 数字

[0 0 0 0], [1 0 0 0] ... [5 0 0 0], [0 1 0 0] ... [5 5 5 5]

目前我拥有的是:

(letfn [(next-v [v]
          (let [active-index (some (fn [[i e]] (when (> 5 e) i)) 
                                   (map-indexed vector v))]
            (map-indexed #(cond
                           (> active-index %1) 0
                           (= active-index %1) (inc %2)
                           :else %2)
                         v)))]
  (last (take 1290 (iterate next-v [0 0 0 0]))))

这可行，但最终会破坏堆栈。

我在这里做了什么导致了 StackOverflowError？如何构建我的代码以使其“安全”？有更好的方法来做我想做的事情吗？

Answer 1

我解决这个问题的方法是:

(def my-range
  (for [i (range 0 6)
        j (range 0 6)
        x (range 0 6)
        y (range 0 6)]
    [i j x y]))

(nth my-range 1295) ;;=> [5 5 5 5]

广义:

(defn combine [coll]
  (for [i (range 6)
        j coll]
    (conj j i)))

(combine (map list (range 6)))
(combine (combine (map list (range 6))))
(combine (combine (combine (map list (range 6)))))

(def result (nth (iterate combine (map list (range 6))) 3))