clojure - 为什么答案中有这么多0？

Question

(take 100 (iterate rand-int 300))

当然，每次都会有不同的评估……但通常会有大量的零。结果总是以 300 开头。例如:

(300 93 59 58 25 14 9 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)

我期望有 100 个介于 0 和 300 之间的随机整数。

我不明白什么？

Answer 1

请参阅 iterate 的文档:

返回 x、(f x)、(f (f x)) 等的惰性序列。f 必须没有副作用

因此，这就是您的序列始终以 300 开头的原因。

为什么有这么多零？当你像这样使用 iterate 时，rand-int获取先前的结果并将其用作随机数的新上限(不包括)。因此，您的结果可能如下所示:

300
=> 300
(rand-int *1)
=> 174
(rand-int *1)
=> 124
(rand-int *1)
=> 29
(rand-int *1)
=> 17
(rand-int *1)
=> 16
(rand-int *1)
=> 7
...

您可以自己检查一下这个序列是否会导致零。

如果你真的想获得 0 到 300 之间的 100 个随机整数，请使用 repeatedly相反:

(重复 100 #(rand-int 300))