作業?!
#!/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