15 lines
428 B
Factor
Executable File
15 lines
428 B
Factor
Executable File
USING: vocabs.loader sequences system
|
|
random random.mersenne-twister combinators init
|
|
namespaces random ;
|
|
|
|
"random.mersenne-twister" require
|
|
|
|
{
|
|
{ [ windows? ] [ "random.windows" require ] }
|
|
{ [ unix? ] [ "random.unix" require ] }
|
|
} cond
|
|
|
|
! [ [ 32 random-bits ] with-secure-random <mersenne-twister> random-generator set-global ]
|
|
[ millis <mersenne-twister> random-generator set-global ]
|
|
"generator.random" add-init-hook
|