Description

比爾去很多地方旅游過。他在旅游的同時(shí)留下了很多簡短的旅行筆記。筆記的形式是這樣的：
出發(fā)地 目的地
如下面就是三條合法的note:
SwimmingPool OldTree
BirdsNest Garage
Garage SwimmingPool
在某一次搬家的時(shí)候，比爾的筆記本不小心散架了。于是他的筆記的順序被完全打亂了。他想請你幫個(gè)忙，幫他把這些筆記的順序整理好，先寫的筆記在前面。幸運(yùn)的是，同一個(gè)地方比爾至多只去過一次。也就是說，在這些筆記當(dāng)中，一個(gè)地方至多出現(xiàn)兩次，一次作為目的地，一次作為出發(fā)地。

Input

第一行是一個(gè)整數(shù)ｎ，表示筆記的條數(shù)。N <= 12000。接下來有ｎ行，每行一條筆記。筆記的兩個(gè)單詞的長度都不會(huì)超過15，兩個(gè)單詞之間以一個(gè)空格分隔。

Output

輸出整理好順序的筆記.

Sample Input

3
SwimmingPool OldTree
BirdsNest Garage
Garage SwimmingPool

Sample Output

BirdsNest Garage
Garage SwimmingPool
SwimmingPool OldTree

Data Constraint

Hint

【限制】
對于50%的數(shù)據(jù)，n <= 1000。
對于100%的數(shù)據(jù)，n <= 12000。

分析
看題我們知道——這是一條鏈
我用了哈希，確定字符串的編號(hào)
如果在讀入中哈希表判斷已出現(xiàn)的，那么肯定同時(shí)作為出發(fā)地和目的地出現(xiàn)過，那么這個(gè)點(diǎn)很明顯就是中間的點(diǎn)
然后一遍遍歷一邊輸出即可

程序：

var u,v:array[0..12000]of longint; s1,s2:array[0..12000]of string; son:array[0..60000]of longint; hash:array[0..60000]of string; n,s:longint; b,p:array[0..60000]of boolean; zfc:string; function locate(s:string):longint; var l,h,k,i:longint; beginl:=length(s);h:=0;k:=1;for i:=0 to l-1 dobeginh:=h+(ord(s[i])*k) mod 56399;k:=k*10 mod 56399;end;while (hash[(h+i) mod 56399]<>'')and(hash[(h+i) mod 56399]<>s) do inc(i);exit((h+i) mod 56399); end;procedure insert(s:string); var i:longint; begini:=locate(s);hash[i]:=s; end;function member(s:string):boolean; var i:longint; begini:=locate(s);if hash[i]=s then exit(true) else exit(false); end;procedure init; var count,i:longint; beginreadln(n);count:=0;while (count<n) dobeginreadln(zfc);s1[count]:=copy(zfc,1,pos(' ',zfc)-1);s2[count]:=copy(zfc,pos(' ',zfc)+1,length(zfc)-pos(' ',zfc));if (member(s1[count])=true) then p[locate(s1[count])]:=true else insert(s1[count]);if (member(s2[count])=true) then p[locate(s2[count])]:=true else insert(s2[count]);inc(count);u[count]:=locate(s1[count-1]);v[count]:=locate(s2[count-1]);son[u[count]]:=count;end;for count:=0 to n-1 doif (p[locate(s1[count])]=false) then s:=locate(s1[count]); end;procedure print; var i:longint; begini:=son[s];while (i>0) dobeginwriteln(hash[u[i]],' ',hash[v[i]]);i:=son[v[i]];end; end;begininit;print; end.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500002.html

總結(jié)

以上是生活随笔為你收集整理的破碎的路径的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。