read-input ( -- input )

Vocabulary

benchmark.knucleotide

Inputs

None

Outputs

input

an object

Definition

USING: ascii io kernel sequences ;

IN: benchmark.knucleotide

: read-input ( -- input )
    discard-lines ">" read-until drop 10 swap remove >upper ;