作者jlovet ( Q我~)
看板Perl
标题Re: [问题] 把资料塞进阵列
时间Wed Mar 19 00:36:49 2008
作业?!
#!/usr/bin/perl
#Copyright by Gung Shi-Jie
foreach(sort<STDIN>){
@t=split;
if ($t[0] ne $array[$#array]){
push (@array,$t[0]);
push (@sum,int($t[1]));
}else{
push(@sum,(pop(@sum)+$t[1]));
}
}
for($i=0;$i<=$#sum;$i++){
print $array[$i],$sum[$i],"\n";
}
#XD!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.123.216.204