next-u32 ( obj -- n )

Vocabulary

random.pcg.private

Inputs

obj

an object

Outputs

n

an object

Definition

USING: accessors kernel ;

IN: random.pcg.private

: next-u32 ( obj -- n )
    dup x3>> multiply-32
    [ pick [ x1>> ] [ x2>> ] [ x3>> ] tri permute-32 ] keep swap
    [ update-state-32 ] dip ; inline