mt-step ( k+m k+1 k seq -- )

Vocabulary

random.mersenne-twister.private

Inputs

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

Outputs

None

Definition

USING: kernel math math.bitwise sequences sequences.private ;

IN: random.mersenne-twister.private

: mt-step ( k+m k+1 k seq -- )
    [
        [ nth-unsafe ] curry tri@
        [ 31 bits ] [ 31 mask-bit ] bi* bitor
        [ 2/ ] [ 1 bitand a nth ] bi bitxor bitxor
    ] 2keep set-nth-unsafe ; inline