作者pziyout (pziyout)
看板Perl
标题Re: [请益] 如何写出倒着累加的script?
时间Mon May 25 12:43:53 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
: (左边的数字(*後面的)可能不连续)
若 @a = (49,38,23,11,12) ;
则 @b = reverse map($s+=$_,reverse @a) ;
印出 @b 即可。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.25.24
1F：→ adu:推！ 感谢各位版大m(__ __)m 05/25 15:26