18/08/10 12:44:30.80 lOg+llmH.net
>>798
その２０種類をコンピューターで算出してみた。
> print(t(apply(AB,1,indx2char)),quote = FALSE)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] a a a a a b a b a b
[2,] a a a a b a b a b a
[3,] a a a b a a a b a b
[4,] a a a b a b a a a b
[5,] a a a b a b a b a a
[6,] a a b a a a b a b a
[7,] a a b a b a a a b a
[8,] a a b a b a b a a a
[9,] a b a a a a a b a b
[10,] a b a a a b a a a b
[11,] a b a a a b a b a a
[12,] a b a b a a a a a b
[13,] a b a b a a a b a a
[14,] a b a b a b a a a a
[15,] b a a a a a b a b a
[16,] b a a a b a a a b a
[17,] b a a a b a b a a a
[18,] b a b a a a a a b a
[19,] b a b a a a b a a a
[20,] b a b a b a a a a a