10!=3628800通りから条件に合致する順列をプログラムに探させる

[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 5 10 4 9 3 8 2 7 1 6
[2,] 6 1 7 2 8 3 9 4 10 5

2通り

おまけ
1～10の10個の自然数をいちれつに並べるとき
隣接する2数が必ず4以上の差になるような並べ方は1496通り。
[1,] 1 5 9 2 6 10 4 8 3 7
[2,] 1 5 9 2 7 3 8 4 10 6
[3,] 1 5 9 3 7 2 6 10 4 8
...
[1494,] 10 6 2 8 4 9 5 1 7 3
[1495,] 10 6 2 9 4 8 3 7 1 5
[1496,] 10 6 2 9 5 1 7 3 8 4