如何实现惰性“减少映射”功能？

Question

我正在尝试实现“缩小地图”功能。也就是说，它应该返回一个序列，其中包含将 f 应用于 coll 的前 2 项的结果，后跟应用 f 的结果> 到该结果和 coll 中的第三项，等等。

(def c [[0 0 0 0] [1 0 0 0] [0 1 0 0] [0 0 1 0] [0 0 0 1]])

(defn- sum-vector [v1 v2]
  (map + v1 v2))

(defn reduce-map [f coll & acc]
  (if (< (count coll) 2)
    (if (empty? acc) coll acc)
    (let [head (apply f (take 2 coll))
          tail (drop 2 coll)]
      (recur f (conj tail head) (conj acc head)))))

例如，像这样调用此函数：

(reduce-map sum-vector c)

应该返回：（

[[1 0 0 0] [1 1 0 0] [1 1 1 0] [1 1 1 1]]

实际上，它可能也应该返回未修改的第一项，以更好地模仿 < code>map，但我可以稍后解决这个问题。）

对了，现在，这就是它返回的内容：

((1 1 1 1) (1 1 1 0) (1 1 0 0) (1 0 0 0))

How do I "push" at the end of a(ny) seq?

If我将 reduce-map 替换为 recur，这就是它返回的内容：

(((1 1 1 1) ((1 1 1 0) ((1 1 0 0) ((1 0 0 0))))))

What is the Difference Between recur and true recursion in my code上面？

并且，是否有内置的，或者更好的，或更惯用的方式来实现reduce-map？

最后，我想要输出序列要惰性。我是否只需将整个事情包装在lazy-seq中？

Answer 1

这听起来有点像 reductions。

至于在 seq 末尾“推”：一般来说 seq 没有​​“结束”，参见。 （迭代 inc 0）。

至于在列表末尾“推送”：列表不是为此而设计的。使用向量。使用 [] 为累加器设定种子，而不是 nil。

至于lazy-seq：使用“true”递归而不是recur。这里有一个例子：

(defn integer-seq
  [start]
  (lazy-seq
    (cons start (integer-seq (inc start)))))