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 concurrency.count-downs
kernel sequences ;

IN: concurrency.combinators

: parallel-each-index ( seq quot: ( elt index -- ) -- )
    over length [
        [ [ 2curry ] curry ] dip [ spawn-stage ] curry compose
        each-index
    ] parallel ; inline