5 lines
167 B
Text
5 lines
167 B
Text
a:=[seq(max(GroupTheory[PermCycleType](Perm(Statistics[Shuffle]([$1..100])))),i=1..100000)]:
|
|
nops(select(n->n<=50,a))/nops(a);
|
|
evalf(%);
|
|
# 31239/100000
|
|
# 0.3123900000
|