$sequence ( element -- )
Factor handbook » Developer tools » Help system » Writing documentation » Element types » Block elements

Prev:	$quotation ( element -- )
Next:	$low-level-note ( children -- )

Vocabulary
help.markup

Inputs

element

an array of element types

Outputs
None

Word description
Produces the text "a sequence of element types".

Examples

{ $sequence number } print-element

a sequence of numbers

{ $sequence real complex } print-element

a sequence of reals or complexs

{ $sequence rational float complex } print-element

a sequence of rationals, floats, or complexs

{ $sequence integer ratio float complex } print-element

a sequence of integers, ratios, floats, or complexs

{ $sequence fixnum bignum ratio float complex } print-element

a sequence of fixnums, bignums, ratios, floats, or complexs

Definition

USING: combinators kernel sequences ;

IN: help.markup

: $sequence ( element -- )
    { "a " { $link sequence } " of " } print-element dup length 
    {
        { 1 [ first ($instances) ] }
        {
            2
            [
                first2
                [ ($instances) " or " print-element ]
                [ ($instances) ] bi*
            ]
        }
        [
            drop unclip-last
            [ [ ($instances) ", " print-element ] each ]
            [ "or " print-element ($instances) ] bi*
        ]
    } case ;