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


Vocabulary
benchmark.fasta

Inputs
seeda float
lena fixnum
charsa byte-array
floatsa double-array


Outputs
seeda float


Definition


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