select-random ( seed chars floats -- seed elt )

Vocabulary

benchmark.fasta

Inputs

seed	an object
chars	an object
floats	an object

Outputs

seed	an object
elt	an object

Definition

USING: kernel math sequences sequences.private ;

IN: benchmark.fasta

:: select-random ( seed chars floats -- seed elt )
    seed next-fasta-random floats [ <= ] with find drop
    chars nth-unsafe ; inline