看板 Perl 關於我們 聯絡資訊
※ 引述《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