init-mt-seq ( seed -- seq )

Vocabulary

random.mersenne-twister.private

Inputs

seed

an object

Outputs

seq

an object

Definition

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

IN: random.mersenne-twister.private

: init-mt-seq ( seed -- seq )
    32 bits n
    [ [ 1 - swap init-mt-formula ] unless-zero dup ]
    uint-array{ } map-integers-as nip ; inline