correct-period ( sfmt -- )

Vocabulary

random.sfmt.private

Inputs

sfmt

an object

Outputs

None

Definition

USING: accessors kernel math.bitwise sequences ;

IN: random.sfmt.private

: correct-period ( sfmt -- )
    [ drop 0 ] [ state>> parity>> first first-set-bit ]
    [ uint-array>> swap [ toggle-bit ] curry change-nth ] tri ;