assoc-reduce ( ... assoc identity quot: ( ... prev key value -- next ) -- ... result )

Vocabulary

assocs

Inputs

assoc	an object
identity	an object
quot	a quotation with stack effect ( ... prev key value -- next )

Outputs

result

an object

Definition

USING: kernel sequences ;

IN: assocs

: assoc-reduce
    ( ... assoc identity quot: ( ... prev key value -- next ) -- ... result )
    [ >alist ] 2dip [ first2 ] prepose reduce ; inline