map>assoc-combinations-with-replacement ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc )

Vocabulary

math.combinatorics

Inputs

seq	an object
k	an object
quot	a quotation with stack effect ( ... elt -- ... key value )
exemplar	an object

Outputs

assoc

an object

Definition

USING: assocs kernel math.combinatorics.private ;

IN: math.combinatorics

: map>assoc-combinations-with-replacement
    ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc )
    [ combinations-with-replacement-quot ] dip map>assoc ;
    inline