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 - _ * + dup ] map nip ;