Question

我在创建从0到9的无限随机数字流方面遇到了一些麻烦。这就是我现在所处的位置：

(#%require (only mzscheme random))
(define (input_stream) (cons (random 9) (delay input_stream)))

唯一的问题是，(random 9)似乎只启动了一次。流确实是随机的，但流的值保持不变。

我得到7, 7, 7, 7, 7或3, 3, 3, 3, 3

每次无限循环重启时如何启动随机函数的任何想法？我在网上搜索过，但找不到办法解决这个问题。

Answer 1

实际上，random过程只被调用一次，因为你没有再次递归调用input_stream，这就是为什么流中的所有随机数实际上都是相同的数字。您必须保证每次新值为cons时都会调用伪随机数生成器，例如：

(define (random-stream n)
  (cons (random n) (delay (random-stream n))))

现在，此流将包含0-9范围内的随机数：

(define input_stream (random-stream 10))

注意：我将n定义为参数jut，以使生成的流可参数化，它也可以使用固定值：

(define (random-stream)
  (cons (random 10) (delay (random-stream))))

(define input_stream (random-stream))

例如，要访问前三个元素：

(car input_stream)
=> 9 ; random number between 0-9
(car (force (cdr input_stream)))
=> 7 ; random number between 0-9
(car (force (cdr (force (cdr input_stream)))))
=> 8 ; random number between 0-9

或者通常，用于生成从{0（包括）到m的{{1}}个随机元素列表（不包括）：

Answer 2

我不确定创建随机流有多大意义，因为简单地重复调用（随机n）会产生同样的效果。

但创建流的好方法是使用 stream-cons ：

#lang racket

;;; infinite stream of random numbers
(define (random-stream n)
  (stream-cons 
   (random n) 
   (random-stream n)))

重要的是如何使用流，因为如果你做错了，你每次最终都会得到第一个数字：

(define S (random-stream 10))

;;; right 
(for/list ((i (range 5)))
  (stream-ref S i))
=> '(7 1 4 8 4)

;;; right
; primitive to take the first n elements of a stream
(define (stream-take s n)
  (for/list ((e s) (i (in-range n)))
    e))
(stream-take S 20)  
=> '(7 1 4 8 4 3 9 8 6 8 4 8 1 1 1 7 0 3 9 4)

;;; wrong
(for/list ((i (range 5)))
  (stream-take S 1))
=> '((7) (7) (7) (7) (7))

无限随机流

2 个答案: