>>621
k=3で

> print(matrix(c("赤","白","青")[core],ncol=3*k),quote=F)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 赤 白 赤 白 白 青 青 青 赤
[2,] 赤 白 白 青 白 青 青 赤 赤
[3,] 赤 白 白 白 青 青 赤 青 赤
[4,] 赤 白 白 白 青 青 青 赤 赤

の４通り