write-random-fasta ( seed: float n: fixnum chars: byte-array floats: double-array desc id -- seed: float )

Vocabulary

benchmark.fasta

Inputs

seed	a float
n	a fixnum
chars	a byte-array
floats	a double-array
desc	an object
id	an object

Outputs

seed

a float

Definition

USING: kernel typed ;

IN: benchmark.fasta

TYPED: write-random-fasta
    ( seed: float n: fixnum chars: byte-array floats: double-array desc id -- seed: float )
    write-description [ make-random-fasta ] 2curry n-split-lines
    ;