Cumulative standard deviation: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: remove spurious newlines) |
m (→{{header|Perl 6}}: one newline missing) |
||
Line 1,317: | Line 1,317: | ||
Using a state variable: |
Using a state variable: |
||
<lang perl6># remember that <(x-<x>)²> = <x²> - <x>² |
<lang perl6># remember that <(x-<x>)²> = <x²> - <x>² |
||
sub stddev($x) { |
|||
state @sum; |
state @sum; |
||
return sqrt( |
return sqrt( |