random-float* ( rnd -- n )

Vocabulary

random.lagged-fibonacci

Inputs

rnd

an object

Outputs

n

an object

Definition

IN: random.lagged-fibonacci

GENERIC: random-float* ( rnd -- n )

Methods

USING: accessors kernel math random.lagged-fibonacci
random.lagged-fibonacci.private sequences.private ;

M:: lagged-fibonacci random-float* ( lagged-fibonacci -- n )
    lagged-fibonacci [ pt0>> ] [ u>> ] bi nth-unsafe
    lagged-fibonacci [ pt1>> ] [ u>> ] bi nth-unsafe - dup 0.0 <
    [ 1.0 + ] when [
        lagged-fibonacci [ pt0>> ] [ u>> ] bi set-nth-unsafe
        lagged-fibonacci [ adjust-ptr ] change-pt0 drop
        lagged-fibonacci [ adjust-ptr ] change-pt1 drop
    ] keep ; inline