$sequence ( element -- ) (original) (raw)

Vocabulary
help.markup

Inputs

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 ;