>>597

朝になったらk=5の計算が終わってた。


> print(matrix(c("赤","白","青")[core],ncol=3*k),quote=F)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15]
[1,] 赤 赤 赤 赤 赤 白 白 白 白 白 青 青 青 青 青
[2,] 赤 赤 赤 赤 赤 白 白 白 白 青 白 青 青 青 青
[3,] 赤 赤 赤 赤 赤 白 白 白 白 青 青 白 青 青 青
[4,] 赤 赤 赤 赤 赤 白 白 白 白 青 青 青 白 青 青
[5,] 赤 赤 赤 赤 赤 白 白 白 青 白 白 青 青 青 青
中略

[331,] 赤 赤 白 白 青 白 白 白 青 青 赤 青 赤 赤 青
[332,] 赤 赤 白 白 青 白 青 白 白 赤 赤 青 赤 青 青
[333,] 赤 赤 白 白 青 白 青 青 白 白 赤 赤 青 赤 青
[334,] 赤 赤 青 赤 赤 青 青 白 白 赤 白 白 白 青 青
[335,] 赤 赤 青 赤 青 青 白 白 赤 白 赤 白 白 青 青

３３５通りと算出。

全列挙はここにあげた

http://fast-uploader.com/file/7093381709046/