генерация случайных чисел внутри вектора

Question

По схеме я хочу создать вектор случайных чисел, я пробовал это так:

(make-vector 10 (random 100))

и вывод для этого такой:

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

так что кажется, что он использует те же начальные числа для сгенерированных элементов, как я могу преодолеть эту проблему генерации n количества случайно сгенерированной последовательности чисел.

Приветствия

Answer 1

Если вы используете схему PLT, вы можете использовать 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

Еще один способ сделать это:

  (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 во время выполнения. Может быть полезно для новых интриганов.

Некоторые примеры использования:

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

Answer 3

Вам нужно вызвать random 100 один раз для каждого элемента вектора.