process-input ( input -- )

Vocabulary

benchmark.knucleotide

Inputs

input

an object

Outputs

None

Definition

USING: io kernel sequences ;

IN: benchmark.knucleotide

: process-input ( input -- )
    [ 1 handle-table nl ] [ 2 handle-table nl ] [
        {
            "GGT"
            "GGTA"
            "GGTATT"
            "GGTATTTTAATT"
            "GGTATTTTAATTTATAGT"
        } [ [ handle-n ] keep print ] with each
    ] tri ;