贴标签

题目描述
罗老师正在给一堆球贴标签，总共有N个球，要给他们贴1-N的编号，不能重复。

罗老师首先将这N个球排成一排，排好后，突然想给自己找点麻烦（无聊），就想出了M条限制条件，每个条件是：
A B
表示第A个球的编号要小于第B个球的编号。
当然，限制条件会造成有时答案有很多种，那么罗老师希望贴好标签后的球字典序最小；也有可能答案不存在，那么就输出-1。
输入
首先输入T，表示有T组测试数据
然后每组测试数据首先输入N, M
接下来M行每行输入A B，表示第A个球编号要小于第B个球
输出
如果答案存在，输出最小字典序(数字字典序，也就是优先小数字在前，比如 22 在 111前)
不存在就输出”-1”
样例输入
5
4 0
4 1
1 1
4 2
1 2
2 1
4 1
2 1
4 1
3 2
样例输出
1 2 3 4
-1
-1
2 1 3 4
1 3 2 4
提示
【数据规模和约定】
1<=N<=200 0<=M<=40000 可能有重边

拓扑排序，注意根据题的要求，要先保证1号球最轻，如果我们由轻的向重的连边，然后我们依次有小到大每次把重量分给一个入度为0的点，那么在拓扑时我们面对多个入度为0的点，我们不知道该把最轻的分给谁才能以最快的速度找到1号（使1号入度为0），并把当前最轻的分给1号。所以我们要由重的向轻的连边，然后从大到小每次把一个重量分给一个入度为0的点。这样我们就不用急于探求最小号。我们只需要一直给最大号附最大值，尽量不给小号赋值，这样自然而然就会把轻的重量留给小号。

var
t,n,m,i,x,y,num,j:longint;
f:array[0..222,0..222] of boolean;
pd:array[0..222] of boolean;
du,ans:array[0..222] of longint;
flag:boolean;
begin
  readln(t);
  while t>0 do
  begin
    t:=t-1;
    readln(n,m);
    fillchar(f,sizeof(f),false);
    flag:=false;
    fillchar(du,sizeof(du),0);
    for i:=1 to m do
    begin
      readln(x,y);
      if x=y then flag:=true;
      if f[y,x]=false then
      begin
        f[y,x]:=true;
        du[x]:=du[x]+1;
      end;
    end;
    if flag then begin writeln('-1'); continue; end;
    num:=n;
    fillchar(pd,sizeof(pd),false);
    while num<>0 do
    begin
      flag:=true;
      for i:=n downto 1 do
        if (du[i]=0)and(pd[i]=false) then
        begin
          for j:=1 to n do
            if f[i,j] then du[j]:=du[j]-1;
          ans[i]:=num;
          num:=num-1;
          pd[i]:=true;
          flag:=false;
          break;
        end;
      if flag then break;
    end;
    if flag then writeln('-1')
            else begin
                   for i:=1 to n-1 do
                     write(ans[i],' ');
                   writeln(ans[n]);
                 end;
  end;
end.