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

61 篇文章 0 订阅
7 篇文章 0 订阅

题目: 约翰的邻居鲍勃控告约翰家的牛们太会叫. 约翰的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



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值