mersenne-twister

Vocabulary

random.mersenne-twister.private

Definition

USING: math specialized-arrays.instances.alien.c-types.uint ;

IN: random.mersenne-twister.private

TUPLE: mersenne-twister
    { seq uint-array initial: uint-array{ } }
    { i fixnum initial: 0 } ;

Methods

USING: accessors kernel math.private random
random.mersenne-twister.private sequences.private ;

M: mersenne-twister random-32*
    [ next-index ] [ seq>> nth-unsafe mt-temper ]
    [ [ 1 fixnum+fast ] change-i drop ] tri ;


USING: accessors kernel random random.mersenne-twister.private ;

M: mersenne-twister seed-random
    init-mt-seq >>seq dup mt-generate ;