>>66
手作業で場合分けしてカウントすると漏れがでると思う。

始まりが黒赤の場合は68通りある。

> M[M[,1]=='黒'&M[,2]=='赤',] |> noquote()
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 黒 赤 黒 赤 白 黒 白 赤 白 赤 白 白
[2,] 黒 赤 黒 赤 白 赤 白 黒 白 赤 白 白
[3,] 黒 赤 黒 赤 白 赤 白 赤 白 黒 白 白
[4,] 黒 赤 黒 白 黒 赤 白 赤 白 赤 白 白
[5,] 黒 赤 黒 白 黒 白 赤 白 赤 白 赤 白
[6,] 黒 赤 黒 白 赤 黒 白 赤 白 赤 白 白
[7,] 黒 赤 黒 白 赤 白 黒 赤 白 赤 白 白
[8,] 黒 赤 黒 白 赤 白 黒 白 赤 白 赤 白
[9,] 黒 赤 黒 白 赤 白 赤 黒 白 赤 白 白
[10,] 黒 赤 黒 白 赤 白 赤 白 黒 赤 白 白
.....
[60,] 黒 赤 白 赤 白 赤 黒 白 赤 白 黒 白
[61,] 黒 赤 白 赤 白 赤 白 黒 赤 黒 白 白
[62,] 黒 赤 白 赤 白 赤 白 黒 赤 白 黒 白
[63,] 黒 赤 白 赤 白 赤 白 黒 白 黒 赤 白
[64,] 黒 赤 白 赤 白 赤 白 黒 白 黒 白 赤
[65,] 黒 赤 白 赤 白 赤 白 黒 白 赤 黒 白
[66,] 黒 赤 白 赤 白 赤 白 黒 白 赤 白 黒
[67,] 黒 赤 白 赤 白 赤 白 赤 黒 白 黒 白
[68,] 黒 赤 白 赤 白 赤 白 赤 白 黒 白 黒