看板 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 : (左邊的數字(*後面的)可能不連續) 若 @a = (49,38,23,11,12) ; 則 @b = reverse map($s+=$_,reverse @a) ; 印出 @b 即可。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.115.25.24
adu:推! 感謝各位版大m(__ __)m 05/25 15:26