Description
在进行文法分析的时候,通常需要检测一个单词是否在我们的单词列表里。为了提高查找和定位的速度,通常都要画出与单词列表所对应的单词查找树,其特点如下:
根节点不包含字母,除根节点外每一个节点都仅包含一个大写英文字母;
从根节点到某一节点,路径上经过的字母依次连起来所构成的字母序列,称为该节点对应的单词。单词列表中的每个词,都是该单词查找树某个节点所对应的单词;
在满足上述条件下,该单词查找树的节点数最少。
例:图一的单词列表对应图二的单词查找树
对一个确定的单词列表,请统计对应的单词查找树的节点数(包括根节点)
Input
该文件为一个单词列表,每一行仅包含一个单词和一个换行/回车符。每个单词仅由大写的英文字符组成,长度不超过63个字符。文件总长度不超过32K,至少有一行数据。
Output
该文件中仅包含一个整数和一个换行/回车符。该整数为单词列表对应的单词查找树的节点数。
Sample Input
A AN ASP AS ASC ASCII BAS BASIC
Sample Output
13
解题思路:先读入数据,然后对单词列表进行字典顺序排序,依次计算每个单词对前一单词的差,并把差累加起来,最后把累加和再加上一,输出即可。
程序:
var
a:array[0..10000]of string;
i,j,n,t,k:longint;
s:string;
begin
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 s:=a[i]; a[i]:=a[j]; a[j]:=s; end;
t:=length(a[1]);
for i:=2 to n do
begin
j:=1;
while (a[i,j]=a[i-1,j]) and (j<=length(a[i-1])) do
inc(j);
t:=t+length(a[i])-j+1;
end;
writeln(t+1);
end.