collect-by-multi! ( ... assoc seq quot: ( ... obj -- ... new-keys ) -- ... assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
seq	an object
quot	a quotation with stack effect ( ... obj -- ... new-keys )

Outputs

assoc

an object

Definition

USING: kernel sequences ;

IN: assocs.extras

: collect-by-multi!
    ( ... assoc seq quot: ( ... obj -- ... new-keys ) -- ... assoc )
    [ keep swap ] curry rot
    [ [ push-at-each ] curry compose each ] keep ; inline