灌篮高手

tur.exe/tur.in/tur.out

题意描述：

小明所在的篮球俱乐部共有N位灌篮高手（包括他自己），编号为1到N。他们之间总是不断地进行着挑战。每一次挑战都是两个人单挑，其中某个人获胜。设已经进行了M场挑战，并且每场挑战的结果都已经公布。现在进行一场超级总决赛，共进行(N-1)场淘汰赛以决出最强的灌篮高手。在这场总决赛中，a能胜b当且仅当在那M场挑战中a胜过b或者a根本没与b交手过。聪明的你也许已经发现，决赛的场次安排能够改变最终的冠军归属。现在要你求出所有可能成为冠军的灌篮高手。

 

输入文件(tur.in)：

第一行有一个数N(1<=N<=100,000)。

以后N行中，第i行第一个数为 b_i, 即在那M场比赛中i胜过的人的个数，后面有b_i个按升序排列的数字（其中不可能有i），即i胜过的人的编号。

数据保证Σb_i（即M）<=1,000,000

 

输出文件(tur.out):

仅有一行，第一个数ge为所有可能成为冠军的人的个数，后面ge个数按升序排列，表示可能成为冠军的人的编号。相邻的数字间用一个空格隔开。不要有多余的空格。

 

输入样例：

4

2 2 3

0

1 2

1 2

 

输出样例：

3 1 3 4

 

 

 

 

模拟打擂台的过程，用N*E的复杂度找出第一个可能的获胜者，然后用类似SPFA的方法找出可能赢他们人，扩展到答案里。

 

这样的打裸肯定坑爹也过不来哦，用一个链表把所有的可能获胜的人串起来，然后一旦他成为获选的人，就将它删去，（实际上就是LZN树的思想，降低常数），这样N越来越小，最后当然跑得出来。

 

program tur; var i,j,k,l,n,m,tot,p,ans:longint; head,next,e,winer,ne,pre:array[0..1000000]of longint; ch:boolean; f,c:array[1..1000000]of boolean; procedure qsort(l,r:longint);//inline; var i,j,x,y:longint; begin i:=l;j:=r;x:=winer[(l+r)>>1]; repeat while winer[i]<x do inc(i); while winer[j]>x do dec(j); if i<=j then begin y:=winer[i];winer[i]:=winer[j];winer[j]:=y; inc(i);dec(j); end; until i>j; if l<j then qsort(l,j); if i<r then qsort(i,r); end; begin assign(input,'tur.in'); reset(input); assign(output,'tur.out'); rewrite(output); read(n); for i:=1 to n do begin read(m); if m<>0 then begin inc(tot);head[i]:=tot;read(e[tot]);end; for j:=2 to m do begin inc(tot); read(e[tot]); next[tot-1]:=tot; end; end; j:=1; for i:=2 to n do begin p:=head[i]; while p<>0 do begin if e[p]=j then begin j:=i;;break;end; p:=next[p]; end; end; ne[0]:=1; pre[1]:=0; for i:=1 to n do begin pre[i]:=i-1; ne[i]:=i+1; end; ans:=1; winer[1]:=j; next[pre[j]]:=next[j]; pre[ne[j]]:=pre[j]; f[j]:=true; i:=0; while i<ans do begin inc(i); p:=head[winer[i]]; while p<>0 do begin if not c[e[p]] then c[e[p]]:=true; p:=next[p]; end; p:=ne[0]; l:=0; while p<>n+1 do begin if not c[p] then if not f[p] then begin inc(ans); winer[ans]:=p; f[p]:=true; end else else begin c[p]:=false;ne[l]:=p;pre[p]:=l;l:=p;end; p:=ne[p]; end; end; qsort(1,ans); write(ans,' '); for i:=1 to ans-1 do write(winer[i],' '); writeln(winer[ans]); end.  

 

 

写丑了，居然比xqz要慢0.02秒......怨念中