make-random-fasta ( seed: float len: fixnum chars: byte-array floats: double-array -- seed: float )

Vocabulary

benchmark.fasta

Inputs

seed	a float
len	a fixnum
chars	a byte-array
floats	a double-array

Outputs

seed

a float

Definition

USING: io kernel sequences typed ;

IN: benchmark.fasta

TYPED: make-random-fasta
    ( seed: float len: fixnum chars: byte-array floats: double-array -- seed: float )
    [ select-random ] 2curry "" replicate-as print ;