私の友人は私に次の答えをくれました.彼は私よりも数学を知っています. これは私の作品ではないため、「コミュニティ」とマークしました。
1/2 に等しいだけでなく、すべての (ほとんどの?) 組み合わせのウェイ数を知る必要があります。たとえば、+18 と -18 を組み合わせて、1 と 2 を同じ数にすることができます。
18
0/0
0/1
...
0/18
1/0
1/1
...
1/17
...
18/0
直接解く方がはるかに簡単に思えます。
0/0
1/0
1/1
2/1
2/2
3/2
3/3
...
18/17
18/18
組み合わせ論を行う
0/0 = 1 way
1/0 = (36C1) = 36 possibilities
1/1 = (36C1) * (36-1C1) = 1260 possibilities
2/1 = (36C2) * (36-2C1) = 21420
2/2 = (36C2) * (36-2C2) = 353430
3/2 = (36C3) * (36-3C2) = 3769920
3/3 = (36C3) * (36-3C3) = 38955840
4/3
4/4
5/4
5/4
18/17 = (36C18) * (36-18C17) = 163352435400
18/18 = (36C18) * (36-18C18) = 9075135300
bc の行を出力するための Perl スクリプト。掛け算と割り算のバランスをとるコードを書くのが面倒なので。
sub print_choose
{
$n = $_[ 0 ];
$c = $_[ 1 ];
if( $c == 0 ) { print "1"; return; }
for( $j = 0; $j < $c; ++$j ) {
if( $j ) { print "*"; }
print $n - $j;
}
for( $j = 0; $j < $c; ++$j ) {
print "/", $c - $j;
}
}
for( $i = 0; $i <= 18; ++$i ) {
if( $i > 0 ) {
print_choose( 36, $i );
print "*";
print_choose( 36 - $i, $i - 1 );
print "\n";
}
print_choose( 36, $i );
print "*";
print_choose( 36 - $i, $i );
print "\n";
}
foo.pl | bc | perl -ne '$sum += $_; print "$sum\n"'
1
37
1297
22717
376147
4146067
43101907
335270707
2453494507
14315547787
78370635499
355942682251
1512492877051
5477807830651
18506699821051
54336152794651
148388466850351
357393609196351
798626687482351
1592846228397151
2943019447952311
4906907767305271
7584937293695671
10709305074484471
14094036837005671
17218404617794471
19862100432308071
21750454585532071
22964396541176071
23611832250852871
23913968915368711
24027270164562151
24062676804935101
24071007779140501
24072477951059101
24072641303494501
24072650378629801