>>634
k=4で
> print(matrix(c("赤","白","青")[core],ncol=3*k),quote=F)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 赤 赤 赤 赤 白 白 白 白 青 青 青 青
[2,] 赤 赤 赤 赤 白 白 白 青 白 青 青 青
[3,] 赤 赤 赤 赤 白 白 白 青 青 白 青 青
[4,] 赤 赤 赤 赤 白 白 青 白 白 青 青 青
[5,] 赤 赤 赤 赤 白 白 青 白 青 白 青 青
[6,] 赤 赤 赤 赤 白 白 青 青 白 白 青 青
[7,] 赤 赤 赤 赤 白 白 青 青 青 青 白 白
[8,] 赤 赤 赤 赤 青 青 白 白 白 白 青 青
[9,] 赤 赤 赤 白 赤 白 白 白 青 青 青 青
[10,] 赤 赤 赤 白 赤 白 白 青 白 青 青 青
[11,] 赤 赤 赤 白 赤 白 白 青 青 白 青 青
[12,] 赤 赤 赤 白 白 赤 白 白 青 青 青 青
[13,] 赤 赤 赤 白 白 白 白 青 青 赤 青 青
[14,] 赤 赤 赤 白 白 白 白 青 青 青 赤 青
[15,] 赤 赤 赤 白 白 白 青 白 青 青 赤 青
[16,] 赤 赤 赤 白 白 青 白 白 青 青 赤 青
[17,] 赤 赤 赤 白 白 青 青 赤 青 青 白 白
[18,] 赤 赤 赤 青 青 白 白 赤 白 白 青 青
[19,] 赤 赤 白 赤 赤 白 白 白 青 青 青 青
[20,] 赤 赤 白 赤 赤 白 白 青 白 青 青 青
[21,] 赤 赤 白 赤 赤 白 白 青 青 白 青 青
[22,] 赤 赤 白 赤 赤 青 青 白 白 白 青 青