init-mt-seq ( seed -- seq )

Vocabulary

random.mersenne-twister.private

Inputs

seed

an object

Outputs

seq

an object

Definition

USING: alien.c-types alien.data kernel math.bitwise sequences ;

IN: random.mersenne-twister.private

: init-mt-seq ( seed -- seq )
    32 bits n uint <c-array>
    [ set-first ] [ init-mt-rest ] [ ] tri ; inline