base-random

Vocabulary

random

Definition

USING: random.blum-blum-shub random.c random.cmwc random.dummy
random.mersenne-twister.private random.pcg random.rdrand
random.sfmt.private random.unix random.xoshiro ;

IN: random

MIXIN: base-random
INSTANCE: unix-random base-random
INSTANCE: mersenne-twister base-random
INSTANCE: random-dummy base-random
INSTANCE: sfmt base-random
INSTANCE: blum-blum-shub base-random
INSTANCE: c-random base-random
INSTANCE: cmwc base-random
INSTANCE: Mwc128XXA32 base-random
INSTANCE: Mwc256XXA64 base-random
INSTANCE: rdrand base-random
INSTANCE: xoshiro-256-star-star base-random

Methods

USING: alien.c-types alien.data kernel random ;

M: base-random random-32* 4 swap random-bytes* uint deref ;


USING: alien.c-types alien.data byte-arrays kernel math random
sequences sequences.private ;

M: base-random random-bytes*
    [ integer>fixnum-strict [ (byte-array) ] keep ] dip
    [ over 4 >= ] [
        [ 4 - ] dip
        [ random-32* 2over int set-alien-value ] keep
    ] while over zero?
    [ 2drop ]
    [ random-32* int <ref> swap head 0 pick copy-unsafe ] if ;