如何使用Perl获得减少的频率序列累积？

Question

我有一个看起来像这样的数据:

3
2
1
5

我想得到的是这些数据产生的"递减"累积

11
8
6
5
0

在Perl中这样做的紧凑方式是什么？

Answer 1

perl -e '{ my @a = (3,2,1,5); map { $s+=$_ } @a; 
           map { print "$s\n"; $s-= $_ } (@a,0) }'

要么

perl -e '{ my @a = (3,2,1,5); my @r = (0); 
           map { $s += $_ ; push @r, $s } reverse @a; 
           print join("\n", reverse @r)."\n" }'

注意:这些都需要一个额外的语句my $s=0;使用strict.

但我可以问为什么？

Answer 2

我不确定你是否能比@ DVK的解决方案更紧凑.

#!/usr/bin/perl

use strict; use warnings;
use List::Util qw(sum);

my @array = (3, 2, 1, 5);
my $sum = sum @array;

for my $x ( @array ) {
    print $sum, "\n";
    $sum -= $x;
}

print "0\n";

结合sum使用map:

#!/usr/bin/perl

use strict; use warnings;

use List::Util qw(sum);

my @array = (3, 2, 1, 5);
my $sum = sum @array;

print join("\n", map $sum -= $_, (0, @array)), "\n";