请教高手：如何用perl 计算出C(4,10) 的所有组合

vicky_zhao03

请教高手：如何用perl 计算出C(4,10) 的所有组合
thanks very much

minirain

回复 1# vicky_zhao03


   <math>C_n^k ={n \choose k} = \frac{P_n^k}{k!} = \frac{n!}{k!(n-k)!}</math>

zhlong8

用递归，数据要求无重复有重复了也简单

1. sub choose {
   
2.     my($n, @data) = @_;    # 需要从 @data 中取出 $n 项
   
3.     my @result;
   
4.     return [map {[$_]} @data] if $n == 1;  # 只取一个时用
   
5.     while (1) {
   
6.         last if @data < $n; # 退出条件
   
7.         my $item = shift @data;
   
8.         my $ret = choose($n-1, @data);
   
9.         for (@$ret) {
   
10.             unshift @$_, $item;
    
11.             push @result, $_;
    
12.         }
    
13.     }
    
14. 
    
15.     return \@result;
    
16. }
    
17. 
    
18. 
    
19. local $, = ' ';
    
20. for (@{choose 3, 1 .. 8}) {
    
21.     say @$_;
    
22. }

复制代码

vicky_zhao03

回复 2# minirain


    呵呵，感谢，可否解释下。这个能列出所有结果么？

vicky_zhao03

回复 3# zhlong8


    感谢感谢，同时也恭喜你

aef25u

回复 1# vicky_zhao03

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

复制代码