Deming's funnel: Difference between revisions

Content added Content deleted

Inline

@@ Line 677: / Line 677: @@
 =={{header|Perl}}==
-<lang perl>sub mean   { my $s; $s += $_ for @_; $s / @_ }
+<lang perl>@dx = qw<
-sub stddev { sqrt( mean(map { $_**2 } @_) - mean(@_)**2) }
-my @dx = qw<
     -0.533  0.270  0.859 -0.043 -0.205 -0.127 -0.071  0.275
 .251 -0.231 -0.401  0.269  0.491  0.951  1.150  0.001
@@ Line 695: / Line 692: @@
 .443 -0.521 -0.799  0.087>;
-my @dy = qw<
+@dy = qw<
 .136  0.717  0.459 -0.225  1.392  0.385  0.121 -0.395
 .490 -0.682 -0.065  0.242 -0.288  0.658  0.459  0.000
@@ Line 710: / Line 707: @@
     -0.947 -1.424 -0.542 -1.032>;
+sub mean   { my $s; $s += $_ for @_; $s / @_ }
-my @rule = (
+sub stddev { sqrt( mean(map { $_**2 } @_) - mean(@_)**2) }
+@rules = (
 sub { 0 },
 sub { -$_[1] },
@@ Line 717: / Line 717: @@
 );
-for (@rule) {
+for (@rules) {
     print "Rule " . ++$cnt . "\n";