如何在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:在clojure.lang上的clojure.lang.AFn.throwArity(AFn.java:437)传递给:user $ random-numbers $ fn的args(1)错误的数量. AFn.invoke(AFn.java:39)在clojure.lang.LazySeq.seq的clojure.lang.LazySeq.sval(LazySeq.java:42)的clojure.core $ iterate $ fn__3870.invoke(core.clj:2596) (LazySeq.java:60)位于clojure.core $ seq.invoke(core.clj:133)的clojure.RT.seq(RT.java:466),位于clojure.core $ take $ fn__3836.invoke(核心. clj:2499)在clojure.lang.LazySeq.seq(LazySeq.java:42)的clojure.lang.LazySeq.seq(LazySeq.java:60)的clojure.lang.Cons.next(Cons.java:39)at clojure.core $ next.invoke(core.clj:64)位于clojure.core $ nthnext.invoke(core.clj:2752)的clojure.core $ print.sexttial(pd.java:580) .invoke(core_print.clj:57)at clojure.core $ fn__4990.invoke(core_print.clj:140)at clojure.lang.MultiFn.invoke(MultiFn.java:167)at clojure.core $ pr_on.invoke(core. clj:3264)在clojure.core $ pr.invoke(core.clj:3276)的clojure.lang.AFn.appl yToHelper(AFn.java:161)位于clojure.core $ Rest.nvoke(core.clj:600)的clojure.core $ resn.doInvoke(core.clj:600)中的clojure.lang.RestFn.applyTo(RestFn.java:132) :3309)在clojure.core(RestFn.java:137)的clojure.core $ apply.invoke(core.clj:600)at clojure.core $ println.doInvoke(core.clj:3329)at clojure用户$ eval7.invoke(testing.clj:12)的.lang.RestFn.invoke(RestFn.java:408)位于clojure.lang.Compiler.eval(Compiler.java:6465)的clojure.lang.Compiler.load( Compiler.java:6902)位于clojure.main $ load_script.invoke(main.clj:282)的clojure.lang.Compiler.loadFile(Compiler.java:6863),位于clojure.main $ script_opt.invoke(main.clj:342) )clojure.main $ main.doInvoke(main.clj:426)at clojure.lang.RestFn.invoke(RestFn.java:408)at clojure.lang.Var.invoke(Var.java:401)at clojure.lang .AFn.applyToHelper(AFn.java:161)at clojure.lang.Var.applyTo(Var.java:518)at clojure.main.main(main.java:37)[在3.8s完成,退出代码为1]

这是一个完全错误的方法,因为我使用的是状态,即r是java.util.Random的一个实例,还是只是一个nooby语法错误？

我只是在研究自己的clojure,所以请忍受我:).

Answer 1

repeatedly 非常适合重复运行函数并在seq中收集结果

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

至于你的原始方法:iterate接受一个参数,将它提供给一个函数,然后获取结果并将其传递回同一个函数.我不是你想要的,因为你使用的功能不需要任何参数.你当然可以为它提供一个占位符并使其工作,尽管repeatedly可能更适合.

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

Answer 2

作为一般指南,不要从Java开始使用类/函数.首先查看Clojure在clojure中的核心函数和命名空间.*(然后在贡献的命名空间中,现在使用模块化存储库:请参阅http://dev.clojure.org/display/doc/Clojure+Contrib); rand-int本身在clojure-core中很容易获得.那么,如何开始搜索随机数助手呢？

使用Clojure 1.3以后,您可以"使用"clojure-repl命名空间来访问方便的apropos函数(与Unix/linux中的apropos命令一样使用); apropos返回到目前为止加载的命名空间中所有匹配的defs.

user> (use 'clojure.repl)
nil
user> (apropos "rand")
(rand rand-int rand-nth)

clojure.repl中的find-doc函数也是另一种选择.

另一个指针是在www.clojuredocs.org上搜索,其中包括clojure core和clojure中funcs的用例.*.