jzoj1520 破碎的路径

Description

比尔去很多地方旅游过。他在旅游的同时留下了很多简短的旅行笔记。笔记的形式是这样的：
出发地 目的地
如下面就是三条合法的note:
SwimmingPool OldTree
BirdsNest Garage
Garage SwimmingPool
在某一次搬家的时候，比尔的笔记本不小心散架了。于是他的笔记的顺序被完全打乱了。他想请你帮个忙，帮他把这些笔记的顺序整理好，先写的笔记在前面。幸运的是，同一个地方比尔至多只去过一次。也就是说，在这些笔记当中，一个地方至多出现两次，一次作为目的地，一次作为出发地。

Input

第一行是一个整数ｎ，表示笔记的条数。N <= 12000。接下来有ｎ行，每行一条笔记。笔记的两个单词的长度都不会超过15，两个单词之间以一个空格分隔。

Output

输出整理好顺序的笔记.

Sample Input

3
SwimmingPool OldTree
BirdsNest Garage
Garage SwimmingPool

Sample Output

BirdsNest Garage
Garage SwimmingPool
SwimmingPool OldTree

Hint

【限制】
对于50%的数据，n <= 1000。
对于100%的数据，n <= 12000。

算法讨论

二分+排序。把出发点数组a和目的地数组b分别排序，排序时连同a的日记编号一同排序，如果a[i]在b中没有出现，那么就是起点，s[i]就是第一条，再把b[s[i]]在a中寻找，就知道下一条路线，同理重复n次。

    while a[i]<t do inc(i);
    while a[j]>t do dec(j);
    if i<=j then
      begin
        z:=a[i];a[i]:=a[j];a[j]:=z;
        c:=s[i];s[i]:=s[j];s[j]:=c;
        inc(i);dec(j);
      end;
  until i>j;
  if l<j then kp(l,j);
  if i<r then kp(i,r);
end;
procedure kpp(l,r:longint);
var
  i,j:longint;
  t,z:string;
begin
  i:=l;j:=r;
  t:=b[(l+r) div 2];
  repeat
    while b[i]<t do inc(i);
    while b[j]>t do dec(j);
    if i<=j then
      begin
        z:=b[i];b[i]:=b[j];b[j]:=z;
        inc(i);dec(j);
      end;
  until i>j;
  if l<j then kpp(l,j);
  if i<r then kpp(i,r);
end;
var
  i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(y[i]);
      x[i]:=copy(y[i],1,pos(' ',y[i])-1);
      delete(y[i],1,pos(' ',y[i]));
      a[i]:=x[i];
      b[i]:=y[i];
      s[i]:=i;
    end;
  kp(1,n);
  kpp(1,n);

  for i:=1 to n do
    if b[ef(a[i])]<>a[i] then
      begin
        j:=s[i];
        break;
      end;
  for i:=1 to n do
    begin
      writeln(x[j],' ',y[j]);
      j:=find(y[j]);
    end;
end.