算法模板——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:=0;
              for c1:=chr(0) to chr(255) do p^.next[c1]:=nil;
              exit(p);
         end;
function getnum(s1:ansistring):longint;
         var
            p:pp;i:longint;
         begin
              p:=head;
              for i:=1 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=0 then
                 begin
                      inc(ttx);
                      p^.ex:=ttx;
                 end;
              exit(p^.ex);
         end;
begin
     readln(n);
     head:=getpoint;ttx:=0;
     for i:=1 to n do
         begin
              readln(s1);
              writeln(GETNum(s1));
         end;
     readln;
end.