题目描述
FJ 决定用他现有牛群的数据来制造一个自动分类机;它能猜测牛身上有没有斑点。不幸的是,FJ 没
有很好的数据。对于他的N 头牛,他所知道的仅仅只是牛的重量,以及这头牛是否有斑点。所有的牛都
有不同的重量。为了猜测一个新牛C 是否有斑点,FJ 先找到现有牛群中和新牛重量最接近的牛C’。如
果这头牛有斑点,FJ 猜测新牛也有斑点;反之,新牛没有斑点。如果有两头牛和新牛重量差相等,如果
有其中之一的牛有斑点,那么FJ 就猜测新牛也有斑点。FJ 用他的这种测试机在新进的一群牛身上。这
批牛重量(连续整数)都在A 和B 之间(包含A;B)。请帮助他决定其中有多少牛会被分类为有斑点。
注意新的机器只会从FJ 现有的牛群中比较数据,不会在他任何新牛中比较。还有注意,由于A 和B 都
可能很大,你的程序如果从A B 一个一个的循环很可能跑不快。
输入
第一行三个数N; A;B,
接下一行N 行
每行要么是‘S W’,表示有一头有斑点的牛重量是W
要么是‘NS W’,表示有一头没有斑点的牛重量是W
数据保证任意两头牛的重量都不相等
输出
要你输出有多少牛会被看成是有斑点
样例输入
3 1 10
S 10
NS 4
S 1
样例输出
6
Explanation
1, 2, 7, 8, 9, and 10 有斑点
数据范围限制
• 对于40% 的数据,1 <= A <= B <= 10^7。
• 对于100% 的数据,N<= 5 * 10^4,1 <= A <= B <= 10^9,1 <= W <= 10^9。
TJ
先按重量排个序,再在每相邻两只牛中间取个mid,再判断各种情况即可。
BC
uses math;
var
n,l,r,i,j,ans,mid:longint;
a:array[1..100000]of longint;
f:array[1..100000]of boolean;
c,ch:char;
procedure kp(l,r:longint);
var
i,j,mid,t:longint;
t1:boolean;
begin
i:=l;
j:=r;
mid:=a[(l+r)div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
t1:=f[i];
f[i]:=f[j];
f[j]:=t1;
inc(i);
dec(j);
end;
until i>j;
if l<j then kp(l,j);
if i<r then kp(i,r);
end;
begin
assign(input,'learning.in');reset(input);
assign(output,'learning.out');rewrite(output);
readln(n,l,r);
for i:=1 to n do
begin
read(c,ch);
readln(a[i]);
if c='S' then f[i]:=true;
end;
kp(1,n);
if (l<a[1])and(f[1]) then ans:=ans+a[1]-l;
if (r>a[n])and(f[n]) then ans:=ans+r-a[n];
for i:=1 to n-1 do
begin
if r<a[i] then break;
if l>=a[i+1] then continue;
mid:=(a[i]+a[i+1])div 2;
if(a[i]+a[i+1])mod 2=1 then
begin
if f[i] then if min(r,mid)-max(l,a[i])+1>0 then ans:=ans+min(mid,r)-max(a[i],l)+1;
if f[i+1] then if min(a[i+1]-1,r)-max(mid+1,l)+1>0 then ans:=ans+min(r,a[i+1]-1)-max(l,mid+1)+1
end
else
begin
if f[i] then if min(r,mid-1)-max(l,a[i])+1>0 then ans:=ans+min(mid-1,r)-max(a[i],l)+1;
if f[i+1] then if min(a[i+1]-1,r)-max(mid+1,l)+1>0 then ans:=ans+min(r,a[i+1]-1)-max(l,mid+1)+1;
if (f[i])or(f[i+1]) then if(mid>=l)and(mid<=r)then inc(ans);
end;
end;
if (f[n])and(a[n]<=r) then inc(ans);
writeln(ans);
close(input);close(output);
end.