【codevs】1729 单词查找树

题目链接：http://codevs.cn/problem/1729/

Description

在进行文法分析的时候，通常需要检测一个单词是否在我们的单词列表里。为了提高查找和定位的速度，通常都要画出与单词列表所对应的单词查找树，其特点如下：
根节点不包含字母，除根节点外每一个节点都仅包含一个大写英文字母；
从根节点到某一节点，路径上经过的字母依次连起来所构成的字母序列，称为该节点对应的单词。单词列表中的每个词，都是该单词查找树某个节点所对应的单词；在满足上述条件下，该单词查找树的节点数最少。
对一个确定的单词列表，请统计对应的单词查找树的节点数（包括根节点）

Input

该文件为一个单词列表，每一行仅包含一个单词和一个换行/回车符。每个单词仅由大写的英文字符组成，长度不超过63个字符。文件总长度不超过32K，至少有一行数据。

Output

该文件中仅包含一个整数和一个换行/回车符。该整数为单词列表对应的单词查找树的节点数。

Analysis

这一道题是NOI2000年的一道考题，是字典树的模板题。
就是在建树的时候把所有的节点个数统计一下。

Code

var  s:ansistring;//还是开ansistring保险  tr:array[1..4000000,1..26]of longint;//字典树数组  sum:longint;//总节点个数procedure build(s:string);//建树var  i,k,p:longint;begin  k:=1;//从根节点开始  for i:=1 to length(s) do//枚举每一个字符     begin      p:=ord(s[i])-ord('A')+1;//防止有0的出现所以+1，但是不加也没关系      if tr[k][p]=0 then//如果k节点没有p这个儿子，那么就给它创造一个子节点        begin          inc(sum);//先加一个节点          tr[k][p]:=sum;//把当前的节点赋值为sum        end;      k:=tr[k][p];//向下找    end;end;begin  sum:=1;  while not(eof) do //好像seekeof不能用，也不知道为什么，有大佬知道的可以评论一下    begin      readln(s)      build(s);    end;  writeln(sum);end.