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 ] curry ] dip
    [ set-nth-unsafe ] curry compose each-integer ; inline