Description
有两个队伍A和B,每个队伍都有n个人。这两支队伍之间进行n场1对1比赛,每一场都是由A中的一个选手与B中的一个选手对抗。同一个人不会参加多场比赛,每个人的对手都是随机而等概率的。例如A队有A1和A2两个人,B队有B1和B2两个人,那么(A1 vs B1,A2 vs B2)和(A1 vs B2,A2 vs B1)的概率都是均等的50%。
每个选手都有一个非负的实力值。如果实力值为X和Y的选手对抗,那么实力值较强的选手所在的队伍将会获得(X-Y)^2的得分。
求A的得分减B的得分的期望值。
Input
第一行一个数n表示两队的人数为n。
第二行n个数,第i个数A[i]表示队伍A的第i个人的实力值。
第三行n个数,第i个数B[i]表示队伍B的第i个人的实力值。
Output
输出仅包含一个实数表示A期望赢B多少分。答案保留到小数点后一位(注意精度)。
分析
见这个人——
代码
var
a,b:array[0..60000] of longint;
numb,numf:array[0..60000] of int64;
i,j,k,r:longint;
ans:extended;
n,m:longint;
procedure qsort(l,r:longint);
var
i,j:longint;
key,temp:longint;
begin
if l>=r then exit;
i:=l; j:=r;
key:=a[(l+r) div 2];
repeat
while (a[i]<key) do inc(i);
while (a[j]>key) do dec(j);
if i<=j then
begin
temp:=a[i]; a[i]:=a[j]; a[j]:=temp;
inc(i); dec(j);
end;
until i>j;
qsort(l,j);
qsort(i,r);
end;
procedure qsort1(l,r:longint);
var
i,j:longint;
key,temp:longint;
begin
if l>=r then exit;
i:=l; j:=r;
key:=b[(l+r) div 2];
repeat
while (b[i]<key) do inc(i);
while (b[j]>key) do dec(j);
if i<=j then
begin
temp:=b[i]; b[i]:=b[j]; b[j]:=temp;
inc(i); dec(j);
end;
until i>j;
qsort1(l,j);
qsort1(i,r);
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
qsort(1,n);
for i:=1 to n do
read(b[i]);
qsort1(1,n);
for i:=1 to n do
begin
numb[i]:=numb[i-1]+b[i];
numf[i]:=numf[i-1]+b[i]*b[i];
end;
r:=0;
for i:=1 to n do
begin
while (r<n) and (a[i]>b[r+1]) do r:=r+1;
ans:=ans+a[i]*a[i]*(2*r-n);
ans:=ans+2*numf[r]-numf[n];
ans:=ans-2*a[i]*(2*numb[r]-numb[n]);
end;
ans:=ans/n;
write(ans:0:1);
end.