请教文本处理:123与321合并为123

怒剑狂啸

像apile兄描述的多位数变数情况，我如果要提高效率，那就得牺牲内存！如果要写出高效率的程序，真不容易啊，要不就是用效率换内存，要不就是用内存换效率，真是鱼与熊掌！
经过这么久的讨论，我得到如下结论：
1、程序不同于软件，软件要求适应多种恶劣情况，而程序可以只针对所要解决的问题。
2、效率和内存永远是一对矛盾
3、最优的程序是理想中的，折中是最终解决方案。
个人观点

apile

1. 
   
2. #!/usr/bin/perl
   
3. open(FF,"in.txt");
   
4. my %count = ();
   
5. my %rem= ();
   
6. my %num= ();
   
7. while(<FF>;){
   
8.   chomp;
   
9.   $count{$_}++;
   
10. }
    
11. close(FF);
    
12. my ($sys,$user) = times;
    
13. print $sys+$user."\n";
    
14. for my $key (keys %count){
    
15.   my $ary = join "", sort {$a <=>;$b } split(//,$key);
    
16.   $num{$ary}->;[0] +=$count{$key};
    
17.   push(@{$num{$ary}->;[1]},$key) ;
    
18. }
    
19.                                                                                                                           
    
20. for my $key (keys %num){
    
21.   my ($min) = sort {$a <=>; $b} @{$num{$key}->;[1]};
    
22.   print "$min =>; $num{$key}->;[0] \n";
    
23. }
    
24.                                                                                                                           
    
25. ($sys,$user) = times;
    
26. print $sys+$user."\n";
    

复制代码

這個會快很多...大概只要17秒....讀文件的時間最長....
如果一次讀進ram裡面保證可以再快很多..但是RAM要吃掉1G...:<
我的nb沒那麼多RAM...所以跑得很慢...
如果真的要求效率..文件在讀進來之前最好能先sort再count一下...:)
這樣代碼會變得很簡單....:)效率也會很高...

怒剑狂啸

不错，到底是老大，信手拈来，写得很好啊！只不过有一点，保存了两份散列，还是用内存换回来的啊！

怒剑狂啸

不过除此以外，也没有别的办法！如果不取存在值的最小值，只取理论最小值，程序要简单得多，可以不用冗余散列实现。但总的来说，apile的程序为最终解决方案，可以适应多种复杂情形！

怒剑狂啸

我刚刚测试了一下apile兄的程序，四位数，100000行，读取文件2.05s，程序执行0.21s，总共花费2.26s。
速度相当快！
代码优化真是一门学问啊！
呵呵！！
感谢superdoctor兄提出问题，感谢apile兄的参与！

yupeng_cun

受益……