parallel-each-index ( seq quot: ( elt index -- ) -- )

Vocabulary

concurrency.combinators

Inputs

seq	an object
quot	a quotation with stack effect ( elt index -- )

Outputs

None

Definition

USING: concurrency.combinators.private kernel sequences threads
;

IN: concurrency.combinators

: parallel-each-index ( seq quot: ( elt index -- ) -- )
    over length [
        stage-quot
        '[ _ 2curry "Count down stage" _ spawn-linked-to drop ]
        each-index
    ] parallel ; inline