- 723 名前：１３２人目の素数さん mailto:sage [2020/03/09(月) 22:29:30.36 ID:0N1NTePA.net]
- >>680
対角線条件を外すと５７６通り
> matrix(B[,counter[1]],n)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 2 1 4 3
[3,] 3 4 1 2
[4,] 4 3 2 1
> matrix(B[,counter[2]],n)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 2 1 4 3
[3,] 3 4 2 1
[4,] 4 3 1 2
で始まって
> matrix(B[,counter[m-1]],n)
[,1] [,2] [,3] [,4]
[1,] 4 3 2 1
[2,] 3 4 1 2
[3,] 2 1 3 4
[4,] 1 2 4 3
> matrix(B[,counter[m]],n)
[,1] [,2] [,3] [,4]
[1,] 4 3 2 1
[2,] 3 4 1 2
[3,] 2 1 4 3
[4,] 1 2 3 4
で終わり
|
 |
