求数组重复数字最少的元素

scriptshooks

@r=( 353475 328937 354173 328937, 353475 404177 354173 404177, 166362 404178 009345 142784);

怎么才能得到此数组里面数字重复最少的元素？？
第一个元素和第二个元素数字是有重复的，第三个是没有重复的，怎么判断得到第三个没有重复的数字？

那位能赐教下呢

程序猿zy

#!/usr/bin/perl -w

use strict ;

my @r= ([ '353475 328937 354173 328937', '353475 404177 354173 404177', '166362 404178 009345 142784']);

my %re_hash ;

for my $i ( 0 .. $#r ) {
    for my $j ( 0 .. $#{$r[$i]} ) {
        my @tmp_list = split / /,$r[$i][$j] ;
        my $i = 1 ;
        my %tmp_hash ;
        $re_hash{$j} = 0 ;
        foreach my $val (@tmp_list) {
            if( !defined($tmp_hash{$val}) ) {
                $tmp_hash{$val} = '1' ;
            }
            else{
                $re_hash{$j} = ++$i ;
            }
        }
    }   
}

print "元素 -- 重复次数\n" ;
#hash的key为元素号（0开始），值为重复次数，下面是按照重复次数排序
foreach my $key ( sort { $re_hash{$a} <=> $re_hash{$b} } keys %re_hash ) {
    print " $key   --  $re_hash{$key}\n" ;
}


##### 半夜有点不清醒，不知道有没有问题

rubyish

no dup

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. 
   
5. my @r = (
   
6.     '353475 328937 354173 328937',
   
7.     '353475 404177 354173 404177',
   
8.     '166362 404178 009345 142784',
   
9.     '166362 404177 009341 142781'
   
10. );
    
11. 
    
12. sub nodup {
    
13.     my %dup;
    
14.     $dup{$_}++ and return for split;
    
15.     return 1;
    
16. }
    
17. 
    
18. my @nodup = grep nodup, @r;
    
19. say for @nodup;
    
20. 
    
21. 
    
22. __DATA__
    

复制代码

min dup

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. my @r = (
   
5.     '353475 328937 354173 328937',
   
6.     '353475 404177 354173 404177',
   
7.     '166362 404178 009345 142784',
   
8.     '166362 404177 009341 142781'
   
9. );
   
10. 
    
11. sub count {
    
12.     ~~ keys %{ { map { $_, 1 } split } };
    
13. }
    
14. 
    
15. my @R = sort { $b->[0] <=> $a->[0] } map [ count, $_ ], @r;
    
16. my ( $min, @min ) = $R[0][0];
    
17. 
    
18. $_->[0] == $min ? push @min, $_->[1] : last for @R;
    
19. say for @min;
    
20. 
    
21. __DATA__
    

复制代码

scriptshooks

感谢，程序猿zy、rubyish两位热心大侠的精彩解答，两位的方法都是很棒的，学习了....

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @a = ([353475,328937,354173,328937],[353475,404177,354173,404177], [166362,404178,'009345',142784]);
   
6. 
   
7. my ($cnt, %hStat, @aData) = 9999;
   
8. for (@a){
   
9.     my @aT = grep {$hStat{$_}++} @$_;
   
10.     if ($cnt > @aT){
    
11.         $cnt = @aT;
    
12.         %hStat = @aData = ();
    
13.         push (@aData, [@$_]);
    
14.     }
    
15. }
    
16. 
    
17. print "@$_\n" for @aData;
    

复制代码