Question

根据方案我想生成一个随机数的向量，我试过这样：

(make-vector 10 (random 100))

并且输出为：

#(44 44 44 44 44 44 44 44 44 44)

因此看起来它对生成的项使用相同的种子，如何克服生成n个随机生成的数字序列的问题。

干杯

Answer 1

如果您使用PLT Scheme，可以使用build-vector：

(build-vector 100 (lambda (_) (random 100)))

如果您使用的是标准版本之一（R5RS，R6RS等），您可以自己定义构建矢量，例如：

(define (build-vector n f)
  (let ((v (make-vector n)))
    (do ((i 0 (+ i 1))) ((> i 9) v)
      (vector-set! v i (f i)))))

Answer 2

您需要为矢量的每个元素调用random 100一次。

Answer 3

另一种方法：

  (define (random-vector count seed)
    (let loop ((vec '(vector)) (i count))
      (cond ((> i 0)
          (loop (cons (random seed) vec) (sub1 i)))
         (else (eval (reverse vec))))))

可能不是最佳解决方案，但展示了如何在运行时编写和评估一个Scheme程序。也许对新的Schemers有用。

一些示例用法：

> (random-vector 10 100)
#10(53 57 47 34 88 32 70 66 92 56)

> (random-vector 100 500)
#100(42 1 250 396 63 120 185 397 251 88 497 271 246 327 91 108 240 306 445 180 292 55 497 67 445 300 279 229 342 122 498 10 253 248 44 133 450 55 112 13 309 255 101 456 272 7 239 113 394 453 89 343 386 471 92 44 61 239 382 313 78 22 376 466 24 97 286 343 237 220 458 153 131 217 390 94 53 461 237 22 327 196 460 436 311 418 41 124 79 24 37 388 344 176 314 432 26 341 303 218)

向量内的随机数生成

3 个答案: