mt-temper ( y -- yt )

Vocabulary

random.mersenne-twister.private

Inputs

y

an object

Outputs

yt

an object

Definition

USING: kernel math ;

IN: random.mersenne-twister.private

: mt-temper ( y -- yt )
    dup -11 shift bitxor dup 7 shift 2636928640 bitand bitxor
    dup 15 shift 4022730752 bitand bitxor dup -18 shift bitxor ;
    inline