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 )
    seq length exemplar new-sequence :> result seq
    [| elt index | elt quot call index result set-nth ]
    parallel-each-index result exemplar like ; inline