add-value ( value standard-deviator -- )


Vocabulary
rosetta-code.standard-deviation

Inputs
valuean object
standard-deviatoran object


Outputs
None

Definition
USING: accessors kernel math ;

IN: rosetta-code.standard-deviation

: add-value ( value standard-deviator -- )
[ nip [ 1 + ] change-n drop ] [ [ + ] change-sum drop ]
[ [ [ sq ] dip + ] change-sum^2 drop ] 2tri ;