[单词查找树.docVIP

单词查找树 树—基本概念 2010-05-19 16:02:32 阅读184 评论0 ??字号：大中小?订阅 在进行文法分析的时候，通常需要检测一个单词是否在我们的单词列表里。为了提高查找和定位的速度，通常都要画出与单词列表所对应的单词查找树，其特点如下：（1）根节点不包含字母，除根节点外每一个节点都仅包含一个大写英文字母；（2）从根节点到某一节点，路径上经过的字母依次连起来所构成的字母序列，称为该节点对应的单词。单词列表中的每个词，都是该单词查找树某个节点所对应的单词；（3）在满足上述条件下，该单词查找树的节点数最少。例：图一的单词列表对应图二的单词查找树对一个确定的单词列表，请统计对应的单词查找树的节点数（包括根节点）输入格式：一个单词列表，每一行仅包含一个单词和一个换行/回车符。每个单词仅由大写的英文字符组成，长度不超过63个字符。文件总长度不超过32K，至少有一行数据。输出格式：仅包含一个整数和一个换行/回车符。该整数为单词列表对应的单词查找树的节点数。样例输入AANASPASASCASCIIBASBASIC样例输出13 分析：这里让我们对建树的过程有一个了解，就像上述过程描述的方式一样，每插入一个字符串，我们从根开始往下搜索，找到一条尽量长的与插入串前缀相吻的路径，最后搜到找不到吻合的时候，插入串的最后部分在树中生成一条独立的路径。上述算法是可以AC的。还有一个优化。我们发现前缀相同的字串，他们在根据最长前缀在树中插入或走的路径大致吻合，这样我们把前缀尽量相同的字串放在一起，对比处理，不用建树就可以通过路径区别做到，没有公共前缀的字串他们是不关联的。这种摆放需要排序，保证按字符串大小排升序，然后模拟迭代配对。Program word;Var?? a:array[1..6700]of string; tmp:string;?? last:string;?? n,i,j,ans:longint;Beginassign(input,word.in);reset(input);assign(output,word.out);rewrite(output);while not eof do?? begin inc(n);readln(a[n]);end;for i:=1 to n-1 do?? for j:=i+1 to n do????? if a[i]a[j] then????? begin tmp:=a[i];a[i]:=a[j];a[j]:=tmp;end;last:=a[1];inc(ans,length(a[1]));for i:=2 to n do?? begin?? j:=1;?? while (j=length(last))and(j=length(a[i]))????? and(last[j]=a[i][j]) do inc(j);?? inc(ans,length(a[i])-j+1);?? last:=a[i];?? end;inc(ans);writeln(ans);close(input);close(output);End.???????? {找到另人题解/muyunhai/blog/item/58779dc292103130e5dd3bc4.html}{我的题解}var?t,i,j:integer;?a:array[0..100] of string;?max,l,n:integer;?procedure pai;??var???i,j:integer;???s:string;??begin???for i:=1 to n-1 do?????for j:=i to n do???????if a[i]a[j] then?????????begin???????????s:=a[i];???????????a[i]:=a[j];???????????a[j]:=s;??????????end;????end;procedure int;??var???i,j,w:integer;??begin???i:=1;??readln(w);???readln(a[i]);???l:=length(a[i]);???max:=l;???repeat????inc(i);????readln(a[i]);???l:=length(a[i]);???if maxl then max:=l;???until i=w;????n:=w;??end;procedure main;??var i,j:inte