洛谷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.