pku2001 trie

最近几天没怎么做pku，主要因为这两天一直都考试。。给我烤糊了。。

各种考试总是失利，要是水平真不够我也就不说啥，关键是能拿分的结果因为细节问题丢分，整个题直接挂掉。。

看来还是需要做题的。

好吧，这个题我wa了好多次，因为细节问题。这要是考试我估计又挂了。。

题目大意:

  从前有一堆单词，让你求每个单词的前缀，让这个前缀能没有歧义的表示这个单词。

简略题解：

  就是构建一棵trie树，然后记录一个count[i]表示第i个节点有几个儿子。最后遍历到一个单词的中间发现这个节点只有一个儿子，那么遍历到的这个地方就能唯一的表示这个单词，也就是这个单词的前缀。

附代码：

program pku_2001; var ctree:array[0..40010,'a'..'z'] of longint; count:array[0..40010] of longint; a:array[0..2000] of string; n,tot:longint; {--------------------} procedure insert(s:string); var i,p:longint; begin p:=1; for i:=1 to length(s) do begin inc(count[p]); if ctree[p,s[i]]=0 then begin inc(tot); ctree[p,s[i]]:=tot; end; p:=ctree[p,s[i]]; end; inc(count[p]); end; {--------------------} procedure work(s:string); var ans:string; i,p:longint; begin ans:=''; p:=1; for i:=1 to length(s) do begin if count[p]=1 then break; p:=ctree[p,s[i]]; ans:=ans+s[i]; end; writeln(ans); end; {--------------------} procedure init; begin n:=0; tot:=1; while not seekeof do begin inc(n); readln(a[n]); insert(a[n]); end; end; {--------------------} procedure main; var i:longint; begin for i:=1 to n do begin write(a[i],' '); work(a[i]); end; end; {--------------------} begin init; main; end.