求助：用perl如何实现数组元素的组合

流星北

假如：有一个10个元素的数组@num=(1,2,3,4,5,6,7,8,9,10)，我想要得到这个数组所有可能的组合，如何实现，请高手赐代码!
具体如：

元素个数为1的所有组合是，（1），（2），（3）.....（10），即每一个元素为一个组合

元素个数为2的所有组合为，（1,2），（1,3），（1,4）.....,(1,10),（2,3），（2,4）.......(2,10),.........（8,9），（8,10），(9,10)

元素个数为3的所有组合为，（1,2,3），（1,2,4）.....（1,2,10），（1,3,4）.....（1,3,10），.......（8,9,10）
.
.
.
元素个数为10的组合数为，（1,2,3,4,5,6,7,8,9,10）

请高手解答！

phoenix_perl

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @array = (1..9,'a');
   
6. 
   
7. my %hash;
   
8. 
   
9. 
   
10. main(@ARGV);
    
11. sub main{
    
12.         my $size = 6;
    
13.         foreach(@array){
    
14.                 check($_,$size);
    
15.         }
    
16.         foreach(sort keys %hash){
    
17.                 print $_."\n";
    
18.         }
    
19. }
    
20. 
    
21. sub check{
    
22.         my $value = shift || "";
    
23.         my $size = shift;
    
24.         my @tmpList;
    
25.        
    
26.         foreach(@array){
    
27.                 if($value !~ /$_/){#这个正则有些问题,0的时候竟然永远是真,所以用a代替
    
28.                         push(@tmpList,$_);
    
29.                 }
    
30.         }
    
31.        
    
32.         foreach(@tmpList){
    
33.                 my $tmpValue = "$value"."$_";
    
34.                
    
35.                
    
36.                 if(length($tmpValue) == $size){
    
37.                         $hash{$tmpValue} = '';
    
38.                         next;       
    
39.                 }
    
40.                 elsif(length($tmpValue) > $size){
    
41.                         return;
    
42.                 }
    
43.                 &check($tmpValue,$size);
    
44.         }
    
45. }
    

复制代码

将开始的size换成你要设置的.

流星北

回复 2# phoenix_perl


    大哥你的代码实现了这个功能，但我希望你能帮我在我这个类型的数据上实现类似的功能。
BCL2        0.999
BCL2L1        0.999
CYCS        0.999
TP53        0.999
BBC3        0.996
BCL2L11        0.996
XRCC6        0.995
MAPK8        0.995       
SH3GLB1        0.993
CASP3      0.991
TP53BP2        0.99
BID        0.988

我要 求前面列所有可能组合的分数的和
如：当n=1时，是对应分数本身，（BCL2对应的分数为0.999），...（FOXO3A对应的分数为0.81）
    当n=2时，求所有可能的两个元素组合的分数的和，（BCL2和BCL2L1对应的分数是0.999+0.999）......（TP53BP2，BID对应的分数是0.99+0.988）
    .
      .
      .
当n=数组元素个数， 分数为所有分数的和