insert-nth! ( elt n seq -- )

Vocabulary

sequences.extras

Inputs

elt	an object
n	an integer
seq	a sequence

Outputs

None

Word description

A variant of insert-nth that modifies seq in place.

Definition

USING: growable kernel math ranges sequences sequences.private ;

IN: sequences.extras

: insert-nth! ( elt n seq -- )
    [ length ] keep ensure swap pick (a..b] over
    [ [ [ 1 + ] keep ] ] dip [ move-unsafe ] curry compose each
    set-nth-unsafe ;