regex-dna ( file -- )

Vocabulary

benchmark.regex-dna

Inputs

file

an object

Outputs

None

Definition

USING: io io.encodings.ascii io.files kernel math.parser
namespaces sequences ;

IN: benchmark.regex-dna

: regex-dna ( file -- )
    ascii file-lines [ "\n" append ] map
    concat dup length ilen set
    strip-line-breaks dup length clen set dup count-patterns
    do-replacements nl ilen get number>string print
    clen get number>string print length number>string print ;