map-concat-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation
exemplar	an object

Outputs

newseq

a sequence

Word description

A version of map-concat where the resultant sequence has the same class as exemplar

Definition

USING: kernel sequences ;

IN: sequences.extras

: map-concat-as
    ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )
    [ appender-for [ each ] dip ] keep like ; inline