ncollector-as ( quot exemplar... n -- quot' vec... )

Vocabulary

sequences.generalizations

Inputs

quot	an object
exemplar...	an object
n	an object

Outputs

quot'	an object
vec...	an object

Definition

USING: generalizations kernel sequences ;

IN: sequences.generalizations

: ncollector-as ( quot exemplar... n -- quot' vec... )
    5 dupn '[
        [ [ length ] keep new-resizable ] _ napply [
            [ [ push ] _ apply-curry _ spread* ] _ ncurry
            compose
        ] _ nkeep
    ] call ; inline