challenge シードを固定した乱数

シードを固定した疑似乱数を出力してください。
数回実行して、常に同じ結果が出力されることを確認してください。

Posted feedbacks - Scheme

srfi-27で.

1
2
3
4
5
6
(use srfi-27)
(define (main . args)
  (define s (make-random-source))
  (begin
    (random-source-pseudo-randomize! s 1 2)
    (print ((random-source-make-reals s)))))

Index

Feed

Other

Link

Pathtraq

loading...