next-index ( mt -- i )

Vocabulary

random.mersenne-twister.private

Inputs

mt

an object

Outputs

i

an object

Definition

USING: accessors kernel math ;

IN: random.mersenne-twister.private

: next-index ( mt -- i )
    dup i>> dup n < [ nip ] [ drop mt-generate 0 ] if ; inline