parallel-assoc-map-as ( assoc quot: ( key value -- newkey newvalue ) exemplar -- newassoc )

Vocabulary

concurrency.combinators

Inputs

assoc	an object
quot	a quotation with stack effect ( key value -- newkey newvalue )
exemplar	an object

Outputs

newassoc

an object

Definition

USING: arrays assocs kernel sequences ;

IN: concurrency.combinators

: parallel-assoc-map-as
    ( assoc quot: ( key value -- newkey newvalue ) exemplar -- newassoc )
    [ >alist ] [
        [ [ first2 ] ] dip [ 2array ] compose compose
        parallel-map
    ] [ assoc-like ] tri* ; inline