exponential-moving-average ( seq a -- newseq )

Vocabulary

math.extras

Inputs

seq	an object
a	an object

Outputs

newseq

an object

Definition

USING: kernel math sequences ;

IN: math.extras

: exponential-moving-average ( seq a -- newseq )
    [ 1 ] 2dip [ [ dupd swap - ] ] dip [ * + dup ] curry compose
    map nip ;