replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: sequences.extras

: replicate-into
    ( ... seq quot: ( ... -- ... newelt ) -- ... )
    over [ length ] 2dip
    '[ _ dip _ set-nth-unsafe ] each-integer ; inline