作者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
推 cutecpu:推! 05/25 08:46
→ adu:推! 05/25 15:25