题目描述
刚拿到驾照的KJ 总喜欢开着车到处兜风，玩完了再把车停到阿Q的停车场里，虽然她对自己停车的水平很有信心，但她还是不放心其他人的停车水平，尤其是Kelukin。于是，她每次都把自己的爱车停在距离其它车最远的一个车位。KJ 觉得自己这样的策略非常科学，于是她开始想：在一个停车场中有一排车位，从左到右编号为 1 到 n，初始时全部是空的。有若干汽车，进出停车场共 m 次。对于每辆进入停车场的汽车，会选择与其它车距离最小值最大的一个车位，若有多个符合条件，选择最左边一个。KJ 想着想着就睡着了，在她一旁的Kelukin想帮她完成这个心愿，但是他又非常的懒，不愿意自己动手，于是就把这个问题就留给了你：在KJ 理想的阿 Q 的停车场中，给你车辆进出的操作序列，依次输出每辆车的车位编号。
输入格式
第一行，两个整数 n 和 m，表示停车场大小和操作数；
接下来 m 行，每行两个整数，F 和 x
F 是 1 表示编号为 x 的车进停车场；
F 是 2 表示编号为 x 的车出停车场；
保证操作合法，即：
出停车场的车一定目前仍在停车场里；
停车场内的车不会超过 n；
输出格式
对于所有操作 1，输出一个整数，表示该车车位的编号。
样例输入
7 11
1 15
1 123123
1 3
1 5
2 123123
2 15
1 21
2 3
1 6
1 7
1 8
样例输出
1
7
4
2
7
4
1
3
数据范围
对30%的数据 n<=1000 ，m<=1000
对60%的数据 n<=200000，m<=2000
对100%的数据n，m<=200000，车的编号小于等于 10^6
思路
30%
第一边做打了一个爆搜，维护停车场和距离最大值两个数组，进出车辆各自维护，进车的时候两个指针分别指向左右端点，维护值即为原值和更新值中较小的；出车的时候因为不知道此时的值是谁赋给它的，所有把空车位全部填满重来一遍。
const ma=200000;
var f:array[1..ma] of longint;
a:array[1..ma] of longint;
n,m,k,x,y,num,ss,kk:longint;
function min(x,y:longint):longint;
begin
if x<y then exit(x) else exit(y);
end;
procedure intt;
begin
assign(input,‘park.in‘);
assign(output,‘park.out‘);
reset(input);
rewrite(output);
end;
procedure outt;
begin
close(input);
close(output);
end;
function update1(x:longint):longint;
var i,j,k,sum,num:longint;
begin
i:=x;j:=x;
while i>=1 do
begin
if a[i]=0 then
f[i]:=min(f[i],abs(x-i));
dec(i);
end;
while j<=n do
begin
if a[j]=0 then
f[j]:=min(f[j],abs(x-j));
inc(j);
end;
num:=0;sum:=0;
for i:=1 to n do
if (a[i]=0)and(f[i]>sum) then
begin
sum:=f[i];
num:=i;
end;
exit(num);
end;
//car in
function update2(x:longint):longint;
var i,j,num,sum:longint;
begin
for i:=1 to n do
if a[i]=0 then f[i]:=2139062143;
for i:=1 to n do
if a[i]<>0 then
for j:=1 to n do
if a[j]=0 then
f[j]:=min(f[j],abs(i-j));
num:=0;sum:=0;
for i:=1 to n do
if (a[i]=0)and(f[i]>sum) then
begin
sum:=f[i];
num:=i;
end;
exit(num);
end;
//car out
begin
intt;
fillchar(f,sizeof(f),127);
fillchar(a,sizeof(a),0);
readln(n,m);
for k:=1 to m do
begin
readln(x,y);
if k=1 then
begin
a[1]:=y;
writeln(1);
ss:=update1(1);
continue;
end;
if x=1 then
begin
writeln(ss);
a[ss]:=y;
f[ss]:=2139062143;
ss:=update1(ss);
continue;
end;
if x=2 then
begin
for kk:=1 to n do
if a[kk]=y then
begin
a[kk]:=0;
f[kk]:=2139062143;
ss:=update2(kk);
break;
end;
continue;
end;
end;
outt;
end.
45%
XYD维护了某车两侧的空车位，我也不知道是怎么维护的，反正也是爆搜。
program dddlk;
var a,l,r:array[0..200001]of longint;
f:array[1..200000]of boolean;
b:array[1..1000000]of longint;
n,m,i,j,a1,a2,ans,b1,max,b2:longint;
begin
assign(input,‘park.in‘);
assign(output,‘park.out‘);
reset(input);
rewrite(output);
ans:=1;
read(n,m);
a[0]:=-300000;
a[n+1]:=-300000;
l[0]:=-300000;
r[n+1]:=500000;
for i:=1 to n do
a[i]:=maxlongint;
for i:=1 to m do
begin
read(a1,a2);
if a1=1
then
begin
writeln(ans);
b[a2]:=ans;
f[ans]:=true;
a[ans]:=0;
r[ans]:=ans;
l[ans]:=ans;
b1:=ans-1;
while(b1>0)and(not f[b1])do
begin
if a[b1]>ans-b1
then a[b1]:=ans-b1;
r[b1]:=ans;
dec(b1);
end;
b1:=ans+1;
while(b1<n+1)and(not f[b1])do
begin
if a[b1]>b1-ans
then a[b1]:=b1-ans;
l[b1]:=ans;
inc(b1);
end;
max:=a[1];
ans:=1;
for j:=2 to n do
if a[j]>max
then
begin
max:=a[j];
ans:=j;
end;
end
else
begin
b2:=b[a2];
b1:=b2-1;
f[b2]:=false;
while(b1>0)and(not f[b1])do
begin
r[b1]:=r[b2+1];
if b1-l[b1]>r[b1]-b1
then a[b1]:=r[b1]-b1
else a[b1]:=b1-l[b1];
dec(b1);
end;
b1:=b2+1;
while(b1<n+1)and(not f[b1])do
begin
l[b1]:=l[b2-1];
if b1-l[b1]>r[b1]-b1
then a[b1]:=r[b1]-b1
else a[b1]:=b1-l[b1];
inc(b1);
end;
l[b2]:=l[b2-1];
r[b2]:=r[b2+1];
if b2-l[b2]>r[b2]-b2
then a[b2]:=r[b2]-b2
else a[b2]:=b2-l[b2];
max:=a[1];
for j:=2 to n do
if a[j]>max
then
begin
max:=a[j];
ans:=j;
end;
end;
end;
close(input);
close(output);
end.
60%
不晓得这个怎么搞
100%
用线段树实现。(据某位大神说，可以用堆来做。然而我并不会)用线段树还是相对简单的。首先我们对区间[1..n]开一课线段树。对于每一个节点，维护4个值。分别是l,r,mid,p。l表示在当前结点线段树所在区间，最左边的车停的位置。同理，r表示做右边的车所停的位置。mid表示在这个小区间[l,r]中的紧邻的两辆车的最长距离除以2后的值。p表示取得mid值是所在的紧邻的两辆车的中间位置，也就是在[l,r]中的答案值。
对于 1 询问：访问线段树的第一个节点，我们比较l-1，n-r，mid的值哪个更大，就选哪个，它们的答案依次是1,n,mid。假设我们求得的位置是car[x]。然后访问[car[x],car[x]]所在的线段树的叶子节点，初始化它的值，然后回溯，进行合并。对于h[x].l与h[x].r可以通过两个儿子的l,r信息得出。对于h[x].mid值,首先在左右儿子的mid值中去一个最大的值。其次考虑一种情况，就是夹在两个线段之间的距离，可以通过(h[x+x+1].l-h[x+x].r) div 2 的值得出在于mid进行比较，然后p就随着mid的值的更新而更新。
对于2询问：访问询问车所在的位置，直接将它的叶子节点[car[x],car[x]]删除，然后回溯时，再做一次合并操作。即可
AC做法：http://blog.csdn.net/liuyuanzhe0515/article/details/47414221
const maxc=1000005;maxn=200005;
type node=record
l,r,mid,p:longint;
end;
var i,j,k,m,n,ch,num,sum:longint;
car:array[1..maxc] of longint;
h:array[1..4*maxn] of node;
procedure merger(x:longint);
var t:longint;
begin
if h[x+x].l>0 then h[x].l:=h[x+x].l else h[x].l:=h[x+x+1].l;
if h[x+x+1].r>0 then h[x].r:=h[x+x+1].r else h[x].r:=h[x+x].r;
h[x].mid:=h[x+x].mid;
h[x].p:=h[x+x].p;
if (h[x+x+1].l>0) and (h[x+x].r>0) then begin
t:=(h[x+x+1].l-h[x+x].r) div 2;
if t>h[x].mid then begin
h[x].mid:=t;
h[x].p:=(h[x+x+1].l+h[x+x].r) div 2;
end;
if h[x+x+1].mid>h[x].mid then begin
h[x].mid:=h[x+x+1].mid;
h[x].p:=h[x+x+1].p;
end;
end;
end;
procedure work(x,l,r,num,kind:longint);
var mid:longint;
begin
if l=r then begin
if kind=2 then begin
h[x].l:=0;h[x].r:=0;
h[x].mid:=0;h[x].p:=0;
end else begin
h[x].l:=l;h[x].r:=r;
h[x].mid:=0;h[x].p:=0;
end;
exit;
end;
mid:=(l+r)>>1;
if num<=mid then work(x+x,l,mid,num,kind) else work(x+x+1,mid+1,r,num,kind);
merger(x);
end;
begin
readln(n,m);
for i:=1 to m do begin
readln(ch,num);
if ch=1 then begin
if h[1].l=0 then begin
car[num]:=1;
end else begin
sum:=-maxlongint;
if h[1].l-1>sum then begin
sum:=h[1].l-1;
car[num]:=1;
end;
if h[1].mid>sum then begin
sum:=h[1].mid;
car[num]:=h[1].p;
end;
if n-h[1].r>sum then begin
sum:=n-h[1].r;
car[num]:=n;
end;
end;
writeln(car[num]);
work(1,1,n,car[num],1);
end else begin
work(1,1,n,car[num],2);
end;
end;
end.