base-random? ( object -- ? )

Vocabulary

random

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the base-random class.

Definition

USING: classes.tuple.private kernel math.private
random.blum-blum-shub random.c random.cmwc random.pcg
random.rdrand random.sfmt.private random.xoshiro slots.private ;

IN: random

: base-random? ( object -- ? )
    dup dup tuple? [
        layout-of
        dup
        7
        slot
        dup
        \ Mwc256XXA64
        eq?
        [ drop t ]
        [
            dup \ Mwc128XXA32 eq?
            [ drop t ] [
                dup \ cmwc eq?
                [ drop t ] [
                    dup \ blum-blum-shub eq?
                    [ drop t ] [
                        dup \ sfmt eq?
                        ~quotation~ ~quotation~ if
                    ] if
                ] if
            ] if
        ]
        if
        [ drop t ]
        [
            dup
            1
            slot
            9
            fixnum>=
            [ 9 slot \ xoshiro-256-star-star eq? ]
            [ drop f ]
            if
        ]
        if
    ] [ drop f ] if
    [ drop t ] [ dup rdrand? [ drop t ] [ c-random? ] if ] if ;