parallel-map-as ( seq quot: ( elt -- newelt ) exemplar -- newseq )

Vocabulary

concurrency.combinators

Inputs

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

Outputs

newseq

an object

Definition

USING: kernel sequences ;

IN: concurrency.combinators

: parallel-map-as
    ( seq quot: ( elt -- newelt ) exemplar -- newseq )
    [
        over [ length ] keep new-sequence [
            [ [ dip ] curry ] dip [ set-nth ] curry compose
            parallel-each-index
        ] keep
    ] dip like ; inline