rolling-map ( ... seq n quot: ( ... slice -- ... elt ) -- ... newseq )

Vocabulary

sequences.windowed

Inputs

seq	an object
n	an object
quot	a quotation with stack effect ( ... slice -- ... elt )

Outputs

newseq

an object

Definition

USING: kernel math math.order sequences sequences.private ;

IN: sequences.windowed

:: rolling-map
    ( ... seq n quot: ( ... slice -- ... elt ) -- ... newseq )
    seq length
    [ 1 + [ n [-] ] [ seq <slice-unsafe> ] bi quot call ]
    map-integers ; inline