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


Vocabulary
assocs

Inputs
assocan object
seqan object
quota quotation with stack effect ( ... obj -- ... key )


Outputs
assocan object


Definition


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