run-seq ( -- )

Vocabulary

tools.seq

Inputs

None

Outputs

None

Definition

USING: combinators command-line kernel math.order math.parser
namespaces sequences ;

IN: tools.seq

: run-seq ( -- )
    command-line get dup length {
        { 1 [ first string>number [ 1 1 ] dip seq ] }
        {
            2
            [
                first2 [ string>number ] bi@ 2dup before? 1 -1 ?
                swap seq
            ]
        }
        { 3 [ first3 [ string>number ] tri@ seq ] }
        [ 2drop usage ]
    } case ;