Cumulative standard deviation: Difference between revisions
m
→{{header|Perl 6}}: no need for parens
m (→{{header|Perl 6}}: style) |
m (→{{header|Perl 6}}: no need for parens) |
||
Line 1,482:
<lang perl6># remember that <(x-<x>)²> = <x²> - <x>²
sub stddev($x) {
sqrt
(.[2] += $x**2) / ++.[0] -
((.[1] += $x) / .[0])**2
}
| |||