fry-map-as ( seq quot exemplar -- newseq )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	an object
exemplar	an object

Outputs

newseq

an object

Definition

USING: kernel math sequences sequences.private ;

IN: sequences.extras

: fry-map-as ( seq quot exemplar -- newseq )
    [ 2drop length ] [ overd new-sequence-like dup ] 3bi '[
        [ [ _ nth-unsafe @ ] [ _ set-nth-unsafe ] bi ]
        each-integer _
    ] call ; inline