22/12/30 06:17:49.10 c23ZduGo.net
>>230
解法（その１）
完全順列の公式を使う
URLﾘﾝｸ(ja.wikipedia.org)
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