collect-assoc-by-multi! ( ... assoc input-assoc quot: ( ... key value -- ... new-keys value' ) -- ... assoc )


Vocabulary
assocs.extras

Inputs
assocan object
input-assocan object
quota quotation with stack effect ( ... key value -- ... new-keys value' )


Outputs
assocan object


Definition


: collect-assoc-by-multi!
( ... assoc input-assoc quot: ( ... key value -- ... new-keys value' ) -- ... assoc )
rot [
[ [ swap ] compose ] dip [ push-at-each ] curry compose
assoc-each
] keep ; inline