noip2011聪明的质检员

二分W+check=.=

由于让绝对值最小所以会有以下两种情况：

1、check>s 那么就说明我们的check还可以更小也就是W还可以更大->l:=mid+1

2、checkr:=mid-1

关键是check怎么算0.0

如果直接暴力枚举每个区间和每个区间的每个w去比较的话O(nm)，50%，50分=。=

然后就要把它优化到O（n） 或 O（m） 

用什么呢？

一看是连续的区间查询，再一看公式（满足要求的个数和*满足要求的价值和），那必是用前缀和0.0

前缀和O（n) 处理

于是就A了（这就差了50分=A=）

注意最后结果可能相差很大，注意开long long（int64）

var
        n,m,ll,rr,mid   :longint;
        i               :longint;
        s,sum,ans       :int64;
        w,a             :array[0..200010] of longint;
        tot             :array[0..200010] of longint;
        v               :array[0..200010] of int64;
        l,r             :array[0..200010] of longint;
function check(x:longint):int64;
var
        i:longint;
        ans:int64;
begin
   tot[0]:=0;v[0]:=0;
   for i:=1 to n do
   begin
      tot[i]:=tot[i-1];v[i]:=v[i-1];
      if (w[i]>=x) then
      begin
         inc(tot[i]);
         inc(v[i],a[i]);
      end;
   end;
   ans:=0;
   for i:=1 to m do inc(ans,(tot[r[i]]-tot[l[i]-1])*(v[r[i]]-v[l[i]-1]));
   exit(ans);
end;

begin
   read(n,m,s);
   for i:=1 to n do
   begin
      read(w[i],a[i]);
      if w[i]>rr then rr:=w[i];
   end;
   //
   for i:=1 to m do read(l[i],r[i]);
   //ll:=0;
   mid:=(ll+rr) >>1;
   ans:=$7f7f7f7f7f7f7f7f; 
   while (ll<=rr) do
   begin
      sum:=check(mid);
      if sum>1;
   end;
   writeln(ans)
end.

——by Eirlys

转载请注明出处=w=