面白い問題おしえて〜な 31問目

>>679
プログラムに列挙させると、
> matrix(B[,counter[1]],n)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 3 4 1 2
[3,] 4 3 2 1
[4,] 2 1 4 3
> matrix(B[,counter[2]],n)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 4 3 2 1
[3,] 2 1 4 3
[4,] 3 4 1 2
から始まって
> matrix(B[,counter[48]],n)
[,1] [,2] [,3] [,4]
[1,] 4 3 2 1
[2,] 2 1 4 3
[3,] 1 2 3 4
[4,] 3 4 1 2
で終わり。