题目描述
lyk在玩一个叫做“打怪兽”的游戏。
游戏的规则是这样的。
lyk一开始会有一个初始的能量值。每次遇到一个怪兽,若lyk的能量值>=怪兽的能量值,那么怪兽将会被打败,lyk的能量值增加1,否则lyk死亡,游戏结束。
若怪兽全部打完,游戏也将会结束。
共有n个怪兽,由于lyk比较弱,它一开始只有0点能量值。
n个怪兽排列随机,也就是说共有n!种可能,lyk想知道结束时它能量值的期望。
由于小数点比较麻烦,所以你只需要输出期望*n!关于1000000007取模后的值就可以了!
例如有两个怪兽,能量值分别为{0,1},那么答案为2,因为游戏结束时有两种可能,lyk的能量值分别为0和2。期望为1,1*2!=2,所以答案为2。
Input
第一行一个数n(1<=n<=100000)。
接下来一行n个数ai表示怪兽的能量(0<=ai
Output
一行表示答案
样例
input
2
0 1
output
2
题解
期望*n!就是所有排列中lyk最后的能量值之和
然后在nbc大姐姐的帮助下
找到了答案就是∑((sum[0]-0)乘到(sum[n-1]-(n-1))*(n-x)!)
sum[i]表示能量值<=i的小怪物的个数
var i,x,n:longint;
ans:int64;
sum,f:array[0..100005] of int64;
a:array[0..100005] of longint;
begin
readln(n);f[1]:=1;f[0]:=1;
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do inc(sum[a[i]]);
for i:=1 to n-1 do inc(sum[i],sum[i-1]);
for i:=0 to n-1 do sum[i]:=sum[i]-i;
for i:=1 to n-1 do sum[i]:=(sum[i-1]*sum[i]) mod 1000000007;
for i:=2 to n do f[i]:=i*f[i-1] mod 1000000007;
for x:=1 to n do ans:=(ans+(sum[x-1]*f[n-x]) mod 1000000007) mod 1000000007;
writeln(ans);
end.