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 [
        [
            [
                [ [ ~quotation~ ] ] dip [ apply-curry ] curry
                compose
            ] dip [ spread* ] curry compose
        ] dip [ ncurry compose ] 2curry
    ] dip [
        [
            [ [ [ ~quotation~ keep new-resizable ] ] ] dip
            [ napply ] curry compose
        ] dip
    ] dip [ nkeep ] 2curry compose call ; inline