<lagged-fibonacci> ( seed -- lagged-fibonacci )

Vocabulary

random.lagged-fibonacci

Inputs

seed

an object

Outputs

lagged-fibonacci

an object

Definition

USING: accessors alien.c-types alien.data kernel math random
random.lagged-fibonacci.private ;

IN: random.lagged-fibonacci

: <lagged-fibonacci> ( seed -- lagged-fibonacci )
    lagged-fibonacci new p-r 1 + double <c-array> >>u
    swap seed-random ; inline