discard-lines ( -- )

Vocabulary

benchmark.knucleotide

Inputs

None

Outputs

None

Definition

USING: io kernel sequences ;

IN: benchmark.knucleotide

: discard-lines ( -- )
    readln [ ">THREE" head? [ discard-lines ] unless ] when* ;