mt-generate ( mt -- )

Vocabulary

random.mersenne-twister.private

Inputs

mt

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: random.mersenne-twister.private

: mt-generate ( mt -- )
    [
        seq>>
        [ [ m 1 0 n m - ] dip mt-steps ]
        [ [ 0 n m - 1 + n m - m 1 - ] dip mt-steps ]
        [ [ m 1 - 0 n 1 - ] dip mt-step ] tri
    ] [ 0 >>i drop ] bi ; inline