19/06/10 21:55:41.69 ICMI75t8.net
> sapply(1:12,function(k) treasure0(3,4,k))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
短軸有利 5 26 73 133 167 148 91 37 9 1 0 0
長軸有利 5 27 76 140 176 153 92 37 9 1 0 0
同等 2 13 71 222 449 623 609 421 202 64 12 1
□■■■
□□■■
□□□■
短軸有利☆
Table[sum[C(2n-1+C(0,n-2),k-1),{n,1,5}],{k,1,12}]
長軸有利☆
Table[sum[C(2n-1+C(0,3mod n),k-1),{n,1,5}],{k,1,12}]
同等☆
Table[C(11,k-1)+C(9,k-2)+C(7,k-2)+C(1,k),{k,1,12}]