提问人：NEW2R 提问时间：3/24/2021 更新时间：3/24/2021 访问量：175
Perl 函数，用于对数字数量的增加和减少求和
Perl function for summing increasing and decreasing amount of numbers
问：
我正在尝试创建一个 Perl 代码来对数字列表求和。从本质上讲，我想将一列数字加成大小组，这些组以 1 到 3 的增量增加，然后再回来。假设数字列表如下：
0 0.2 0.4 0.01 0.5 0.7 0.03 0.55
0.3
我想做的是增加和减少从 1 到 3 并再次添加的数字数量，所以首先只有 0，然后是 0.2+0.4，然后是 0.01+0.5+0.7，然后回落到 0.03+0.55，最后只有 0.3。输出将是一个数字列表，等于以下每个括号的总和。
(0)
（0.2+0.4） （0.01+0.5+0.7） （0.03+0.55） （0.3）
但是，我是 Perl 的新手，我真的不确定如何处理这个问题。任何建议都将不胜感激地接受。
答：
3赞
ikegami
3/24/2021
#1
困难的部分是确定下一组中有多少个元素。为了实现这一点，我们必须跟踪当前组的规模以及数量是增长还是缩小。
或者，我们可以使用模运算符将以下内容与受数组大小限制的升序数一起使用：
my @group_sizes = ( 1, 2, 3, 2, 1 );
然后，它就变成了一个跟踪组中还剩下多少元素的问题。
my $sum;
my $group_sizes_idx = 0;
my $remaining = $group_sizes[$group_sizes_idx];
for my $num (@nums) {
$sum += $num;
if (--$remaining == 0) {
say $sum; # or C<< push @sums, $sum; >>.
$sum = undef;
$group_sizes_idx = ( $group_sizes_idx + 1 ) % @group_sizes
$remaining = $group_sizes[$group_sizes_idx];
}
}
# say $sum if defined($sum); # Uncomment this to print the sum of a partial group.
@group_sizes可以使用
# -2 => 3 - 2 = 1
# -1 => 3 - 1 = 2
# 0 => 3 - 0 = 3
# +1 => 3 - 1 = 2
# +2 => 3 - 2 = 1
my @group_sizes = map { $n - abs($_) } -($n-1) .. ($n-1);
或
my @group_sizes = map { $n - abs($_ - $n + 1) } 0 .. $n*2 - 2;
这意味着您可以使用以下内容：
my $sum;
my $group_sizes_idx = 0;
my $remaining = 1;
for my $num (@nums) {
$sum += $num;
if (--$remaining == 0) {
say $sum; # or C<< push @sums, $sum; >>.
$sum = undef;
$group_sizes_idx = ( $group_sizes_idx + 1 ) % ( $n*2 - 1 );
$remaining = $n - abs($group_sizes_idx - $n + 1);
}
}
# say $sum if defined($sum); # Uncomment this to print the sum of a partial group.
评论
0.2大于 ，那么第一个集合不应该是 吗？00, 0.2, 0.4