random-float* ( tuple -- r )


Vocabulary
random.lagged-fibonacci

Inputs
tuplean object


Outputs
ran object


Definition
IN: random.lagged-fibonacci

GENERIC: random-float* ( tuple -- r )


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

M:: lagged-fibonacci random-float* ( lagged-fibonacci -- r )
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