map-from-as ( ... seq quot: ( ... elt -- ... newelt ) from exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation
from	an integer
exemplar	an object

Outputs

newseq

a sequence

Word description

A version of map-from where the resultant sequence has the same class as exemplar

Definition

USING: kernel sequences sequences.private ;

IN: sequences.extras

: map-from-as
    ( ... seq quot: ( ... elt -- ... newelt ) from exemplar -- ... newseq )
    -rotd [ sequence-operator nipd ] dip map-integers-from-as ;
    inline