next-bbs-bit ( bbs -- bit )

Vocabulary

random.blum-blum-shub.private

Inputs

bbs

an object

Outputs

bit

an object

Definition

USING: accessors kernel math math.functions ;

IN: random.blum-blum-shub.private

: next-bbs-bit ( bbs -- bit )
    dup [ x>> 2 ] [ n>> ] bi ^mod [ >>x drop ] [ 1 bitand ] bi ;