next-combination ( seq n -- )

Vocabulary

math.combinatorics.private

Inputs

seq	an object
n	an object

Outputs

None

Definition

USING: kernel math.order ;

IN: math.combinatorics.private

:: next-combination ( seq n -- )
    seq n find-max-index
    [ 1 [-] seq increment-rest ] [ seq increment-last ] if* ;
    inline