比赛 纪中3055 数学方法

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.