next-fasta-random ( seed -- seed n )


Vocabulary
benchmark.fasta

Inputs
seedan object


Outputs
seedan object
nan object


Definition
USING: kernel math ;

IN: benchmark.fasta

: next-fasta-random ( seed -- seed n )
IA * IC + IM mod dup IM /f ; inline