weighted ( prev elt a -- newelt )


Vocabulary
math.finance.private

Inputs
prevan object
eltan object
aan object


Outputs
neweltan object


Definition
USING: kernel math ;

IN: math.finance.private

: weighted ( prev elt a -- newelt )
[ 1 swap - * ] [ * ] bi-curry bi* + ; inline