init-mt-rest ( seq -- )

Vocabulary

random.mersenne-twister.private

Inputs

seq

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: random.mersenne-twister.private

: init-mt-rest ( seq -- )
    n 1 - swap
    [ [ init-mt-formula ] [ [ 1 + ] dip set-nth ] 2bi ] curry
    each-integer ; inline