作者DarkKiller (System hacked)
看板Perl
标题Re: [请益] 如何写出倒着累加的script?
时间Mon May 25 02:22:35 2009
※ 引述《adu (^_^)》之铭言：
: 想请教版友，如何写出由後往前累加的script?
: 资料型态长这个样子：
: GY*20 49 74
: DS*21 38 63
: TE*24 23 28
: FF*25 11 21
: GT*26 12 14
: ^^
: 要将这个数直从後往前累加...
: 在这个例子里面希望得到：
: 133
: 84
: 46
: 23
: 12
: (左边的数字(*後面的)可能不连续)
: 不知道有没有办法办到..
: 要处理的资料量很大，现在用计算机按ing...Orz
定义 SUM(a,b) 为第 a 项加到第 b 项：
SUM(1,N) = SUM(1,N)
SUM(2,N) = SUM(1,N) - ITEM(1)
SUM(3,N) = SUM(2,N) - ITEM(2)
:
:
:
SUM(N,N) = SUM(N-1,N) - ITEM(N-1)
只是个简单的计算而已。
my $sum;
foreach (@arr) { $sum += $_; }
foreach (@arr) {
print "$sum\n";
$sum -= $_;
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.199.248.145
1F：推 cutecpu:推！ 05/25 08:46
2F：→ adu:推！ 05/25 15:25