51nod-1670-打怪兽

题目描述

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.