xorshift

Vocabulary

random.xorshift

Definition

IN: random.xorshift

TUPLE: xorshift seed ;

Methods

USING: accessors kernel math math.bitwise random random.xorshift
;

M: xorshift random-32*
    [
        dup 13 shift 32 bits bitxor dup -17 shift 32 bits bitxor
        dup 5 shift 32 bits bitxor dup
    ] change-seed drop ;