洛谷P1160 队列安排（模拟）

队列安排

题目描述

一个学校里老师要将班上N个同学排成一列，同学被编号为1～N，他采取如下的方法：

1.先将1号同学安排进队列，这时队列中只有他一个人；

2.2～N号同学依次入列，编号为i的同学入列方式为：老师指定编号为i的同学站在编号为1～i -1中某位同学（即之前已经入列的同学）的左边或右边；

3.从队列中去掉M（M < N）个同学，其他同学位置顺序不变。

在所有同学按照上述方法队列排列完毕后，老师想知道从左到右所有同学的编号。

输入输出格式

输入格式：

输入文件arrange.in的第1行为一个正整数N，表示了有N个同学。

第2～第N行，第i行包含两个整数k，p，其中k为小于i的正整数，p为0或者1。若p为0，则表示将i号同学插入到k号同学的左边，p为1则表示插入到右边。

第N+1行为一个正整数M，表示去掉的同学数目。

接下来M行，每行一个正整数x，表示将x号同学从队列中移去，如果x号同学已经不在队列中则忽略这一条指令。

输出格式：

输入文件arrange.out仅包括1行，包含最多N个空格隔开的正整数，表示了队列从左到右所有同学的编号，行末换行且无空格。

分析:每次记录每个位置的前驱和后继就可以了。

代码

const
maxn=100000;
var
a,b,c:array[0..maxn] of longint;
f:array[0..maxn] of boolean;
i,j,n,m,p,k:longint;

procedure print(x:longint);
begin
if x=0 then halt;
write(x,' ');
print(b[x]);
end;

begin
readln(n);
for i:=2 to n do
begin
readln(k,j);
if j=0
then begin
a[i]:=a[k];
b[a[k]]:=i;
a[k]:=i;
b[i]:=k;
end
else begin
b[i]:=b[k];
a[b[k]]:=i;
b[k]:=i;
a[i]:=k;
end;
end;
readln(m);
for i:=1 to m do
begin
readln(k);
if not f[k] then
begin
b[a[k]]:=b[k];
a[b[k]]:=a[k];
f[k]:=true;
end;
end;
for i:=1 to n do
if (a[i]=0) and (not f[i]) then
begin
p:=i;
break;
end;
print(p);
end.