init-mt-formula ( prev-i prev-elt -- next-elt )


Vocabulary
random.mersenne-twister.private

Inputs
prev-ian object
prev-eltan object


Outputs
next-eltan object


Definition
USING: kernel math math.bitwise ;

IN: random.mersenne-twister.private

: init-mt-formula ( prev-i prev-elt -- next-elt )
dup -30 shift bitxor 1812433253 * + 1 w+ ; inline