init-mt-formula ( i seq -- f(seq[i]) )


Vocabulary
random.mersenne-twister.private

Inputs
ian object
seqan object


Outputs
f(seq[i])an object


Definition
USING: kernel math math.bitwise sequences ;

IN: random.mersenne-twister.private

: init-mt-formula ( i seq -- f(seq[i]) )
dupd nth dup -30 shift bitxor 1812433253 * + 1 w+ ; inline