PerlでnCkをインラインで効率的に実装する

Question

これをPerlで計算する既存の実装はありますか？

nCk (n choose k), or n!/(k!*(n-k!)) 

これは数値のみを返し、組み合わせのリストは返しません。

Answer 1

Math::Countingは、必要な機能を定義しています。あなたはどの 外部モジュールなしでコピーして、次を貼り付けて、それを使用することができます。

sub combination { 
    my($n, $r) = @_; 
    return unless defined $n && $n =~ /^\d+$/ && defined $r && $r =~ /^\d+$/; 
    my $product = 1; 
    while($r > 0) { 
     $product *= $n--; 
     $product /= $r--; 
    } 
    return $product; 
} 

しかし、任意精度のために、あなたはMath::BigIntを使用する必要があります。繰り返しますが、Math::Countingの機能を使用することができます。

sub bcomb { 
    my($n, $k) = @_; 
    $n = Math::BigInt->new($n); 
    $k = Math::BigInt->new($k); 
    my $r = $n - $k; 
    return $n->bfac()/($k->bfac() * $r->bfac()); 
}