perl - 如何使用 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 .

但我可以问为什么吗？