recursion - 在 Clojure 中，如何编写自己的递归函数来处理惰性列表？

Question

我只是想向某人展示我的懒惰，所以我编写了一个简单的递归函数来处理列表。

我认为在无限列表中会很好。但突然我得到了“太多递归”内部错误。

嗯？我总是编写执行此类操作的代码。有什么问题吗？

但是，当然，通常我使用 map 等内置函数作为其他列表处理函数的基础。这次我尝试编写自己的递归遍历。当然，这是不可能的。

这是我写的。

(defn q [xs] 
  (if (empty? xs) () 
    (cons (* (first xs) (first xs)) (q (rest xs)) )))

(take 10 (q (cycle '(1 2 3 4))))

那么，实际上我该如何编写自己的遍历函数来处理 Clojure 中的惰性数据结构呢？是否存在某种相当于“产量”的东西？

Answer 1

(defn q [xs] 
  (if (empty? xs) () 
    (lazy-seq  ;; <- here's our magic!
       (cons (* (first xs) (first xs)) (q (rest xs)) ))))

(take 10 (q (cycle '(1 2 3 4))))