comma-list ( parts conjunction -- clause-seq )
English natural language transformations

Prev:

a10n ( word -- numeronym )

Vocabulary
english

Inputs

parts	a sequence
conjunction	a string

Outputs

clause-seq

a sequence

Word description
Generate a comma-separated list of things, emplacing conjunction before the last part if there are two or more elements in parts.

Notes
This word attempts to preserve the letter case style of the input.

Examples

USING: english io sequences ; { "a cat" "a peach" "an object" } "or" comma-list concat print
a cat, a peach, or an object

See also
a/an, ?plural-article, a10n

Definition

USING: arrays kernel math math.order sequences ;

IN: english

: comma-list ( parts conjunction -- clause-seq )
    [
        [ length dup 1 [-] + ", " <array> ]
        [ [ 2 * pick set-nth ] each-index ] bi
    ] dip over length dup 3 >=
    [ [ 3 > ", " " " ? " " surround ] [ 2 - pick set-nth ] bi ]
    [ 2drop ] if ;