Reduce 和归约可让您在序列上累积状态。 序列中的每个元素都会修改累积的状态，直到 到达序列的末尾。
对无限列表调用 reduce 或 reductions 有何影响？
(def c (cycle [0]))
(reduce + c)
这将很快抛出 OutOfMemoryError。顺便说一句，(reduce + (cycle [0])) 不会抛出 OutOfMemoryError（至少在我等待的时候不会）。它永远不会回来。不知道为什么。
有什么方法可以以一种有意义的方式在无限列表上调用 reduce 或 reductions？我在上面的例子中看到的问题是，最终列表的评估部分变得足够大以溢出堆。也许无限列表不是正确的范例。减少生成器、IO 流或事件流会更有意义。在评估并用于修改状态后，不应保留该值。
【问题讨论】：
标签： clojure
它永远不会返回，因为reduce接受一个序列和一个函数并应用该函数，直到输入序列为空，只有这样它才能知道它有最终值。
减少真正无限的 seq 并没有多大意义，除非它会产生副作用，例如记录其进度。
在您的第一个示例中，您首先创建一个引用无限序列的 var。
(def c (cycle [0]))
然后您将 var c 的内容传递给 reduce ，它开始读取元素以更新其状态。
(reduce + c)
这些元素不能被垃圾回收，因为 var c 持有对其中第一个的引用，而后者又持有对第二个的引用，依此类推。最终它会读取堆中的空间，然后 OOM。
为了避免在第二个示例中炸毁堆，您没有保留对您已经使用的数据的引用，因此循环返回的 seq 上的项目与它们产生的一样快，并且累积的结果继续得到大。最终它会溢出一个 long 并崩溃（clojure 1.3）或将自己提升为 BigInteger 并增长到所有堆的大小（clojure 1.2）
(reduce + (cycle [0]))
【讨论】：
就目前而言，Arthur 的回答很好，但他似乎没有解决您关于 reductions 的第二个问题。 reductions 返回一个惰性的中间阶段序列，如果给定一个只有 N 个元素长的列表，reduce 将 返回的内容。所以在无限列表上调用reductions 是完全明智的：
user=> (take 10 (reductions + (range)))
(0 1 3 6 10 15 21 28 36 45)
【讨论】：
如果您想继续从列表中获取项目（如 IO 流）并在运行之间保持状态，则不能使用 doseq（不求助于 def）。相反，一个好的方法是使用 loop/recur 这将允许您避免消耗过多的堆栈空间并让您保持状态，在您的情况下：
(loop [c (cycle [0])]
(if (evaluate-some-condition (first c))
(do-something-with (first c) (recur (rest c)))
nil))
当然，与您的情况相比，这里有一个条件检查，以确保我们不会无限期地循环。
【讨论】：
do-something-with 是一个扩展为recur 在尾部位置实际上 的形式的宏。
正如其他人指出的那样，直接在无限序列上运行 reduce 是没有意义的，因为 reduce 是非惰性的，需要消耗整个序列。
作为这种情况的替代方案，这里有一个有用的函数，它只减少序列中的前 n 项，使用 recur 实现以合理的效率：
(defn counted-reduce
([n f s]
(counted-reduce (dec n) f (first s) (rest s) ))
([n f initial s]
(if (<= n 0)
initial
(recur (dec n) f (f initial (first s)) (rest s)))))
(counted-reduce 10000000 + (range))
=> 49999995000000
【讨论】：