算法模板——Trie树

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

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

 type
     pp=^nod;
     nod=record
               ex:longint;
               next:array[char] of pp;
     end;
 var
    i,j,k,l,m,n,ttx:longint;
    head,p,p1,p2:pp;
    s1:ansistring;
 function getpoint:pp;inline;
          var p:pp;c1:char;
          begin
               new(p);p^.ex:=;
               for c1:=chr() to chr() do p^.next[c1]:=nil;
               exit(p);
          end;
 function getnum(s1:ansistring):longint;
          var
             p:pp;i:longint;
          begin
               p:=head;
               for i:= to length(s1) do
                   begin
                        if p^.next[s1[i]]=nil then p^.next[s1[i]]:=getpoint;
                        p:=p^.next[s1[i]];
                   end;
               if p^.ex= then
                  begin
                       inc(ttx);
                       p^.ex:=ttx;
                  end;
               exit(p^.ex);
          end;
 begin
      readln(n);
      head:=getpoint;ttx:=;
      for i:= to n do
          begin
               readln(s1);
               writeln(GETNum(s1));
          end;
      readln;
 end.