算法模板——Trie树

实现功能——实现对于不同字符串以及之前出现过的字符串的识别,对于单个长度为L的字符串,复杂度为O(L);

代码不难懂,直接上(在识别字符串方面,个人觉得其好处远远大于hash识别——1.理论上都是O(L) 2.哈希弄不好撞车撞一大串,尤其是哈希策略不太好的时候,而这个绝对不可能撞,严格的O(L) 3.这个代码真心短,一点也不比hash长,只要你链表还会用)

复制代码
 1 type
 2     pp=^nod;
 3     nod=record
 4               ex:longint;
 5               next:array[char] of pp;
 6     end;
 7 var
 8    i,j,k,l,m,n,ttx:longint;
 9    head,p,p1,p2:pp;
10    s1:ansistring;
11 function getpoint:pp;inline;
12          var p:pp;c1:char;
13          begin
14               new(p);p^.ex:=0;
15               for c1:=chr(0) to chr(255) do p^.next[c1]:=nil;
16               exit(p);
17          end;
18 function getnum(s1:ansistring):longint;
19          var
20             p:pp;i:longint;
21          begin
22               p:=head;
23               for i:=1 to length(s1) do
24                   begin
25                        if p^.next[s1[i]]=nil then p^.next[s1[i]]:=getpoint;
26                        p:=p^.next[s1[i]];
27                   end;
28               if p^.ex=0 then
29                  begin
30                       inc(ttx);
31                       p^.ex:=ttx;
32                  end;
33               exit(p^.ex);
34          end;
35 begin
36      readln(n);
37      head:=getpoint;ttx:=0;
38      for i:=1 to n do
39          begin
40               readln(s1);
41               writeln(GETNum(s1));
42          end;
43      readln;
44 end.
45   
复制代码

 

posted @   HansBug  阅读(237)  评论(0编辑  收藏  举报
编辑推荐:
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
阅读排行:
· winform 绘制太阳,地球,月球 运作规律
· 震惊!C++程序真的从main开始吗?99%的程序员都答错了
· 【硬核科普】Trae如何「偷看」你的代码?零基础破解AI编程运行原理
· 超详细:普通电脑也行Windows部署deepseek R1训练数据并当服务器共享给他人
· 上周热点回顾(3.3-3.9)
点击右上角即可分享
微信分享提示