nproduce-as ( pred quot exemplar... n -- seq... )
Generalized sequence words

Prev:

nproduce ( pred quot n -- seq... )

Vocabulary
sequences.generalizations

Inputs

pred	a quotation with stack effect ( -- ? )
quot	a quotation with stack effect ( -- obj1 obj2 ... objn )
exemplar...	n sequences on the datastack
n	an integer

Outputs

seq...

n sequences on the datastack of the same types as the exemplars

Word description
A generalization of produce-as that generates n sequences in parallel by calling quot repeatedly until pred outputs false.

Definition

USING: generalizations kernel sequences ;

IN: sequences.generalizations

: nproduce-as ( pred quot exemplar... n -- seq... )
    7 dupn [
        [
            [ [ ncollector-as [ while ] ] curry ] dip
            [ ndip ] curry compose
        ] 3dip
    ] dip [
        [
            [
                [ [ ~quotation~ curry ] dip ] dip
                [ ncurry ] 2curry compose
            ] dip [ ndip [ like ] ] curry compose
        ] dip [ apply-curry ] curry compose
    ] dip [ spread* ] curry compose call ; inline