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 concurrency.combinators.private
concurrency.futures kernel ;

IN: concurrency.combinators

: parallel-assoc-map-as
    ( assoc quot: ( key value -- newkey newvalue ) exemplar -- newassoc )
    [
        [ 2array ] compose [ 2curry future ] curry { } assoc>map
        future-values
    ] dip assoc-like ;