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
$keep-case

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 ;