assoc-collect ( assoc1 assoc2 -- newassoc )


Vocabulary
assocs.extras

Inputs
assoc1an object
assoc2an object


Outputs
newassocan object


Definition
USING: assocs kernel math ;

IN: assocs.extras

: assoc-collect ( assoc1 assoc2 -- newassoc )
[ [ [ assoc-size ] bi@ + ] [ drop ] 2bi new-assoc ] 2keep
[ assoc-collect! ] bi@ ;