<sfmt-array> ( sfmt -- uint-array uint-4-array )

Vocabulary

random.sfmt.private

Inputs

sfmt

an object

Outputs

uint-array	an object
uint-4-array	an object

Definition

USING: accessors alien.c-types alien.data kernel math
math.bitwise math.vectors.simd ranges sequences
specialized-arrays.instances.alien.c-types.uint ;

IN: random.sfmt.private

: <sfmt-array> ( sfmt -- uint-array uint-4-array )
    state>> [ n>> 4 * [1..b] uint >c-array ] [ seed>> ] bi [
        [ [ -30 shift ] [ ] bi bitxor state-multiplier w* ] dip
        w+
    ] uint-array{ } accumulate-as nip dup uint-4 cast-array ;