题目描述
罗老师正在给一堆球贴标签,总共有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.