increment-rest ( i seq -- )

Vocabulary

math.combinatorics.private

Inputs

i	an object
seq	an object

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: math.combinatorics.private

: increment-rest ( i seq -- )
    [ nth-unsafe ] [ swap index-to-tail <slice-unsafe> ] 2bi
    [ drop 1 + dup ] map! 2drop ; inline