查找单词树(树)

这篇博客介绍了如何构建单词查找树以优化单词列表的查找和定位,强调了树的特性:节点只含一个大写字母,路径形成单词,且节点数最少。内容包含输入输出的详细描述,例如输入为单词列表,输出为对应树的节点数。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值