求个算法？

hh9net

有数组(1,2,3,4,5,6,7,8,9,10);
求取其中5个数的所有组合；

[ 本帖最后由 hh9net 于 2009-12-30 11:31 编辑 ]

lokchungk

原帖由 hh9net 于 2009-12-30 11:09 发表
有数组(1,2,3,4,5,6,7,8,9,10);
求取其中5个数的所有组合；

C<.pick> and X in Perl6 ?

[ 本帖最后由 lokchungk 于 2009-12-30 11:43 编辑 ]

wfnh

算法·····弱项·

hitsubunnu

1. 
   
2. 
   
3. use Math::Combinatorics;
   
4. print join $/, map { join $", @$_ } combine(5, 1..10);
   
5. 
   

复制代码

guap514

1. my @agrs=(1..10);
   
2. func(0,\@agrs);
   
3. 
   
4. sub func{
   
5.     my $i=shift;
   
6.     my $agrs=shift;
   
7.     my @array=@_;
   
8.    
   
9.     if(scalar(@array)==5){
   
10.         print join ' ',@array,"\n";
    
11.     }else{
    
12.         foreach ($i..$#agrs){
    
13.             func(++$i,$agrs,@array,$agrs->[$_]);
    
14.         }
    
15.     }
    
16. }

复制代码

如果顺序没要求的话

see11see

给个简洁但低效的方法：


my $i = 0;
"1234567890" =~ m/
    (\d)\d*(\d)\d*(\d)\d*(\d)\d*(\d)
    (?{ printf("%3d: %s%s%s%s%s\n", ++$i, $1, $2, $3, $4, $5); })
    (?!)
/x;