map-with-previous-as ( ... seq quot: ( ... elt prev/f -- ... newelt ) exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation
exemplar	an object

Outputs

newseq

a sequence

Definition

USING: kernel sequences.private ;

IN: sequences.extras

: map-with-previous-as
    ( ... seq quot: ( ... elt prev/f -- ... newelt ) exemplar -- ... newseq )
    [ length-operator ] dip map-integers-with ; inline