查错（拓扑排序+堆维护）

不了解堆的可以打开链接看看基础代码：http://wenku.baidu.com/link?url=8VzUPoY188woWI_TKltWXyJPnng2idVsSyw-zl9bcreKHweGACPWB1h97ZEjri8xxrhBt-63XAfLLsmUiIlmzLCZnMzN_djx1jocwcPZt_S

拓扑排序 ：

由AOV网构造拓扑序列的拓扑排序算法主要是循环执行以下两步，直到不存在入度为0的顶点为止。

(1) 选择一个入度为0的顶点并输出之；

(2) 从网中删除此顶点及所有出边。

循环结束后，若输出的顶点数小于网中的顶点数，则输出“有回路”信息，否则输出的顶点序列就是一种拓扑序列。 （摘自 ： 百度百科）

查错
[Description] 一天，考试题神坑了。不过，我们的 Mosaic 还是成功的写出了程序，当然，结果比较赞： “TBMW*TBMW*”，结果被痛骂了一顿。经过漫长的检查，Mosaic 发现他的程序有 M 处错误， 现在要做的就是修改程序了。但是他发现，这 M 处错误存在复杂的联系，有的错误必须在其他 错误之前改正，否则事情会变得很麻烦，因此，他开始写另一个程序来解决这个问题……

[Input] 第一行两个整数：M，N。N 表示程序之间的依赖关系数量 以下 N 行每行两个整数 a，b。表示第 a 处错误必须在第 b 处错误之前改正。

[Output] 一行，按改正顺序输出错误编号。若有多解，请输出字典序小的解（即尽量使编号小的错误 先被改正）。如果无解，输出“OMG.”（不含引号）。

[Sample] Sample Input
5 5
1 2
2 3
1 3
1 4
4 5
Sample Output
1 2 3 4 5

[Hint] 对于 100%的数据，有 0 ＜ M,N ≤ 100000 保证没有重边。

program df;
type point=^node;
node=record
date,ends:longint;
next:point;
end;
var i,j,n,m,x,y,z,k,t,len:longint;
p:point;
path:array[0..100000] of point;
a,c,d,e,f:array[0..100000] of longint;
tm:array[0..1000000] of longint;
b,zhan,re:array[0..100000] of boolean;

procedure com(x,y:longint);
var i:point;
begin
i:=path[x];
new(path[x]);
path[x]^.ends:=y;
path[x]^.next:=i;
end;

procedure put(x:longint); //维护度数为零的点中的最小值
var i,j:longint;
begin
inc(len);
a[len]:=x;
i:=len;
while (a[i div 2]>a[i]) and (i>1) do
begin
j:=a[i]; a[i]:=a[i div 2]; a[i div 2]:=j;
i:=i div 2;
end;
end;

function get:longint;
var i,j,d:longint;
begin
get:=a[1];
a[1]:=a[len];
dec(len);
i:=1;
while i*2<=len do
begin
if a[i*2]>a[i*2+1] then j:=i*2+1
else j:=i*2;
if a[i]>a[j] then
begin
d:=a[j]; a[j]:=a[i]; a[i]:=d;
end;
i:=j;
end;
end;

procedure dfs;
var i:point;
x,y:longint;
begin
while len>0 do
begin
x:=get;
inc(t);
c[t]:=x; //作为最小值取出
i:=path[x];
while (i<>nil) do //将相连的边删去，继续找度数为零的
begin
y:=i^.ends;
dec(d[y]);
if d[y]=0 then put(y);
i^.ends:=0;
i:=i^.next;
end;
end;
end;

begin
assign(input,’correct.in’);
reset(input);
assign(output,’correct.out’);
rewrite(output);
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
com(x,y);
inc(d[y]);
end;
len:=0; t:=0;
for i:=1 to n do
if d[i]=0 then put(i);
dfs;
if t=n then
for i:=1 to t do
write(c[i],’ ‘);
if t<>n then writeln(‘OMG.’); //说明有环
close(input);
close(output);
end.