二分W+check=.=
由于让绝对值最小所以会有以下两种情况:
1、check>s 那么就说明我们的check还可以更小也就是W还可以更大->l:=mid+1
2、check<s 那么就说明我们的check还可以更大也就是W还可以更小->r:=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<s then
begin
if s-sum<ans then ans:=s-sum;
rr:=mid-1;
end else
begin
if sum-s<ans then ans:=sum-s;
ll:=mid+1;
end;
mid:=(ll+rr)>>1;
end;
writeln(ans)
end.
——by Eirlys
转载请注明出处=w=