找出重复的代码

rubyish

我的初步实现~~哈哈

1. #!/usr/bin/perl -w
   
2. my %s;
   
3. $s{$_}++ and print $s{$_} == 2 ? $_ : '' for <DATA>;
   
4. 
   
5. __DATA__
   
6. Aars
   
7. Adams
   
8. Atp2
   
9. Atp2
   
10. Bcf
    
11. Def
    
12. Def
    
13. Def
    
14. Grt3
    
15. Hgt3
    

复制代码

yinyuemi

回复 11# rubyish


    print grep {$s{$_}++==1} <DATA>;

午夜凋零

uniq和12楼，高，学习了~

rubyish

yinyuemi 发表于 2012-01-13 21:47
回复 11# rubyish

print grep {$s{$_}++==1} <DATA>;

哦~~无语了。
这个，很强。一行就搞定了！
代码接近神的等级。

谢谢yinyuemi 大神指点~~