cmwc-4096 ( -- cmwc )

Vocabulary

random.cmwc

Inputs

None

Outputs

cmwc

an object

Definition

USING: kernel random sequences
specialized-arrays.instances.alien.c-types.uint ;

IN: random.cmwc

: cmwc-4096 ( -- cmwc )
    4096
    [ 18782 4294967295 362436 <cmwc> ] [
        [ [ random-32 ] uint-array{ } replicate-as ]
        with-system-random 362436 <cmwc-seed> seed-random
    ] bi ;