bzoj 1679 [Usaco2005 Jan]Moo Volume 牛的呼声

题目： 约翰的邻居鲍勃控告约翰家的牛们太会叫． 约翰的N(1≤N≤10000)只牛在一维的草场上的不同地点吃着草．她们都是些爱说闲话的奶牛，每一只同时与其他N-1只牛聊着天．一个对话的进行，需要两只牛都按照和她们间距离等大的音量吼叫，因此草场上存在着N（N-1）/2个声音．  请计算这些音量的和．

显然无脑暴力O（n^2）是过不去的

但是显然，任意两个牛a和b之间的距离dis对答案的贡献为  ：dis*a及a左边的牛的个数*b及b右面的牛的个数*2

所以我们只需要排个序即可

排序后： ans=2*sigma（a[i+1]-a[i])*i*(n-i)    (1<=i<=n-1)

var
        n               :longint;
        i               :longint;
        a               :array[0..10010] of longint;
        ans             :int64;

procedure sort(l,r:longint);
var
        i,j,x,y:longint;
begin
   i:=l; j:=r; x:=a[(l+r)>>1];
   while (i<=j) do
   begin
      while a[i]<x do inc(i);
      while a[j]>x do dec(j);
      if (i<=j) then
      begin
         y:=a[i]; a[i]:=a[j]; a[j]:=y;
         inc(i); dec(j);
      end;
   end;
   if i<r then sort(i,r);
   if j>l then sort(l,j);
end;

begin
   read(n);
   for i:=1 to n do read(a[i]);
   sort(1,n);
   ans:=0;
   for i:=1 to n-1 do inc(ans,int64(a[i+1]-a[i])*int64(i)*int64(n-i));
   writeln(ans*int64(2));
end.

——by Eirlys