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

Prev:	mnmap-as ( m*seq quot n*exemplar m n -- result*n )
Next:	nproduce-as ( pred quot exemplar... n -- seq... )

Vocabulary
sequences.generalizations

Inputs

pred	a quotation with stack effect ( -- ? )
quot	a quotation with stack effect ( -- obj1 obj2 ... objn )
n	an integer

Outputs

seq...

n arrays on the datastack

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

Definition

USING: generalizations kernel ;

IN: sequences.generalizations

: nproduce ( pred quot n -- seq... )
    [ { } swap dupn ] keep nproduce-as ; inline