assoc-union-as ( assoc1 assoc2 exemplar -- union )

Vocabulary

assocs

Inputs

assoc1	an object
assoc2	an object
exemplar	an object

Outputs

union

an object

Definition

USING: kernel math ;

IN: assocs

: assoc-union-as ( assoc1 assoc2 exemplar -- union )
    [ [ [ assoc-size ] bi@ + ] dip new-assoc ] 2keepd
    [ assoc-union! ] bi@ ;