シードを固定した乱数
Posted feedbacks - Scheme
srfi-27で.
see: SRFI 27: Sources of Random Bits
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)))))
|


ところてん
#9451()
Rating1/1=1.00
[ reply ]