如何在clojure中创建懒散的随机数序列

Question

我如何创建一个懒散的随机数序列？

(import '(java.util Random))

(def r (new Random))
(defn rnd [_] 
    (.nextInt r 10))

(defn random-numbers [max] 
    (iterate #(.nextInt r max) (.nextInt r max)))

(println (take 5 (random-numbers 10)))

执行它将引发异常：

（线程“main”clojure.lang.arityException中的异常：传递给：USER$random-numbers$fn at clojure.lang.afn.throwarity(afn.java:437)at clojure.lang.afn.invoke(afn.java:39)at clojure.core$iterate$fn__3870.invoke(core.cljj:2596)at clojure.lang.lazyseq.sval(lazyseq.java:42)at clojure.lang.lazyseq.seq(lazyseq.java:60)atyToHelper(afn.java:161)在clojure.lang.restfn.applyTo(restfn.java:132)在clojure.core$apply.invoke(core.cljj:600)在clojure.core$prn.doinvoke(core.clja:137)在clojure.core$apply.invoke(core.clja:137)在clojure.core$println.doinvoke(core.clja:600)在clojure.core

这是一个完全错误的方法吗，因为我使用的是state，即r是java.util.Random的一个实例，还是仅仅是一个nooby语法错误？

我只是在自己学习clojure，所以请耐心等待：）。

Answer 1

repeature对于重复运行函数并在seq中收集结果非常有用

user> (take 10 (repeatedly #(rand-int 42)))
(14 0 38 14 37 6 37 32 38 22)

至于您最初的方法：iterate接受一个参数，将它提供给一个函数，然后接受它的结果，并将它传递回同一个函数。我并不完全是你想要的，因为你正在使用的函数不需要任何参数。当然，您可以为该参数提供一个占位符并使其工作，不过repeature可能更合适。

(defn random-numbers [max]
  (iterate (fn [ignored-arg] (.nextInt r max)) (.nextInt r max)))
#'user/random-numbers

user> (println (take 5 (random-numbers 10)))
(3 0 0 2 0)