mt-steps ( k+m k+1 k n seq -- )

Vocabulary

random.mersenne-twister.private

Inputs

k+m	an object
k+1	an object
k	an object
n	an object
seq	an object

Outputs

None

Definition

USING: kernel math ;

IN: random.mersenne-twister.private

: mt-steps ( k+m k+1 k n seq -- )
    [ mt-step ] curry [ 3keep [ 1 + ] tri@ ] curry times 3drop ;
    inline