reverse-complement ( infile outfile -- )

Vocabulary

benchmark.reverse-complement

Inputs

infile	an object
outfile	an object

Outputs

None

Definition

USING: io io.encodings.ascii io.files vectors ;

IN: benchmark.reverse-complement

: reverse-complement ( infile outfile -- )
    ascii [
        ascii
        [ 500000 <vector> [ do-line ] each-line show-seq ]
        with-file-reader
    ] with-file-writer ;