0

我正在研究一个取 1 个或多个数组的平均值的子程序。我想在不使用模块的情况下做到这一点。

use strict;
use warnings;

use List::Util 'sum';

my @w = (0, 2);
my @x = (1, 3);
my @y = (2, 2);
my @z = (1, 1);

# the average of these four arrays is (1,2) since
# (0+1+2+1)/4 = 1 and (2+3+2+1)/4 = 2    

my @arrays = \(@w, @x, @y, @z);

my @avg;
# this is the way to do it using the module
for my $i (0..$#w) {
    $avg[$i] =  sum(map $_->[$i], @arrays) / @arrays;
}
print "@avg\n";

# my way of doing it without module
@avg;
for my $i (0..$#w) {
    $avg[$i] = prod_sum(map $_->[$i], \@arrays) / @arrays;
}

print "@avg\n";


# subroutines
sub prod_sum{
    my $o = $_[0];
    my $arr_ref = $_[1];
    my $array_ref;

    foreach my $row (@$arr_ref){
        foreach my $cell (@$row) {
            push(@{ $array_ref }, $_);
        }
    }

    my $sum = $o + the_sum($array_ref);
    return $sum;
}

sub the_sum{
    my $sum = 0;
    for ( @{$_[0]} ) {
        $sum += $_;
    }
    return $sum;
}

输出

1 2
[pair of really random big numbers]

第一个输出是正确的。它显示所有数组的平均值。第二个输出是完全错误的。如何在不使用模块的情况下做到这一点？

4

2 回答 2

1

您认为 sum 正在传递两个变量，但事实并非如此。它只是被传递一个数组。修改您的 prod_sum 以仅期望一个数组（并\@arrays在 prod_sum 的调用中替换为 just @arrays）。或者你可以使用这个：

sub sum {
  return 0 if $#_ < 0;
  my $head = shift;
  return $head + sum(@_);
}

以上是对数组求和的递归子程序。

注意：如果您的数组有超过 100 个元素，use warnings将发出深度递归警告。有关该主题的更多信息，请参见此处

于 2013-04-05T20:43:56.800 回答
1

我提出这个解决方案：

use strict;
use warnings;

my @w = (0, 2);
my @x = (1, 3);
my @y = (2, 2);
my @z = (1, 1);

my @arrays = \(@w, @x, @y, @z);

my ($x, $y) = (0, 0);
foreach my $arr(@arrays) {
    $x += $arr->[0];
    $y += $arr->[1];
}

my @result = ( $x / @arrays,  $y / @arrays);

print "(@result)", "\n";  # <---- prints (1 2)
于 2013-04-05T20:53:25.923 回答