bump-indices ( seq n -- )

Vocabulary

math.combinatorics.private

Inputs

seq	an object
n	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: math.combinatorics.private

: bump-indices ( seq n -- )
    [ [ dup ] ] dip [ >= [ 1 + ] when ] curry compose map! drop
    ; inline