collect-by! ( ... assoc seq quot: ( ... obj -- ... key ) -- ... assoc )

Vocabulary

assocs

Inputs

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

Outputs

assoc

an object

Definition

USING: kernel sequences ;

IN: assocs

: collect-by!
    ( ... assoc seq quot: ( ... obj -- ... key ) -- ... assoc )
    [ 1check ] curry rot [ [ push-at ] curry compose each ] keep
    ; inline