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