- 247 名前：１３２人目の素数さん mailto:sage [2022/12/30(金) 06:17:49.10 ID:c23ZduGo.net]
- >>230
解法（その１）
完全順列の公式を使う
https://ja.wikipedia.org/wiki/%E5%AE%8C%E5%85%A8%E9%A0%86%E5%88%97
a4=9
なので9/4!=3/8
解法（その２）
ひたすら列挙して数える
> pm
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 1 2 4 3
[3,] 1 3 2 4
[4,] 1 3 4 2
[5,] 1 4 2 3
[6,] 1 4 3 2
[7,] 2 1 3 4
[8,] 2 1 4 3
[9,] 2 3 1 4
[10,] 2 3 4 1
[11,] 2 4 1 3
[12,] 2 4 3 1
[13,] 3 1 2 4
[14,] 3 1 4 2
[15,] 3 2 1 4
[16,] 3 2 4 1
[17,] 3 4 1 2
[18,] 3 4 2 1
[19,] 4 1 2 3
[20,] 4 1 3 2
[21,] 4 2 1 3
[22,] 4 2 3 1
[23,] 4 3 1 2
[24,] 4 3 2 1
該当するのは
> pm[apply(pm,1,f),]
[,1] [,2] [,3] [,4]
[1,] 2 1 4 3
[2,] 2 3 4 1
[3,] 2 4 1 3
[4,] 3 1 4 2
[5,] 3 4 1 2
[6,] 3 4 2 1
[7,] 4 1 2 3
[8,] 4 3 1 2
[9,] 4 3 2 1
9/24=3/8
|
 |
