Recursion 我如何实现一个懒惰的；“缩小地图”；功能？

我正在尝试实现一个“缩小地图”功能。也就是说，它应该返回一个序列，该序列包括对

coll

的前两项应用

f

的结果，然后是对该结果应用

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)))))

应返回：

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

（实际上，为了更好地模拟

map

，它可能也会返回未修改的第一个项目，但我可以稍后修复。）

好的，现在，这是它返回的结果：

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

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

如何在（纽约）序列的末尾“推送”？

如果我用

reduce map

替换

recur

，它将返回以下结果：

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

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

在我上面的代码中，

recurr

与真正的递归有什么区别？

还有，是否有一种内置的、更好的或更惯用的方法来实现

reduce map

？

---

最后，我希望输出序列是惰性的。我是不是要把整件事都用

lazy-seq

？

这听起来有点像

至于seq末尾的“push”：通常seq没有“end”，参见

（iterate inc 0）

至于列表末尾的“推送”：列表不是为此而设计的。使用向量。使用

[]

为累加器设定种子，而不是

nil

至于

lazy seq

：使用“true”递归，而不是

recur

。这里有一个例子：

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

嗯，那太快了。谢谢