Clojure-Eratosthenes的尾递归筛

  • Z时代
  • 2024-01-10
  • 分类：问答

我在Clojure中使用了Eratosthenes筛子的此实现：

(defn sieve [n]
  (loop [last-tried 2 sift (range 2 (inc n))]
    (if
      (or (nil? last-tried) (> last-tried n))
      sift
      (let [filtered (filter #(or (= % last-tried) (< 0 (rem % last-tried))) sift)]
        (let [next-to-try (first (filter #(> % last-tried) filtered))]
        (recur next-to-try filtered))))))

对于较大的n（如20000），它以堆栈溢出结束。为什么尾音消除在这里不起作用？如何解决？

回答：

问题：进行filter惰性评估，因此每个新级别的过滤都会在调用堆栈上徘徊。

修复：更改(filter ...)为(doall (filter ...))。

以上是 Clojure-Eratosthenes的尾递归筛 的全部内容， 来源链接： utcz.com/qa/401247.html

回到顶部