filter-combinations-with-replacement ( ... seq k quot: ( ... elt -- ... ? ) -- ... newseq )

Vocabulary

math.combinatorics

Inputs

seq	an object
k	an object
quot	a quotation with stack effect ( ... elt -- ... ? )

Outputs

newseq

an object

Definition

USING: kernel sequences ;

IN: math.combinatorics

: filter-combinations-with-replacement
    ( ... seq k quot: ( ... elt -- ... ? ) -- ... newseq )
    selector [ each-combination-with-replacement ] dip ; inline