collect-key-by ( ... input-assoc quot: ( ... key value -- ... new-key ) -- ... assoc )

Vocabulary

assocs.extras

Inputs

input-assoc	an object
quot	a quotation with stack effect ( ... key value -- ... new-key )

Outputs

assoc

an object

Definition

USING: kernel ;

IN: assocs.extras

: collect-key-by
    ( ... input-assoc quot: ( ... key value -- ... new-key ) -- ... assoc )
    [ H{ } clone ] 2dip collect-key-by! ; inline