pku3630 trie树

传说中的trie树，noip前认为非常bt的东西现在居然会用了。。。果然。。。

题目大意：

  给你n个字符串，问你是否有字符串是其他字符串的前缀。

简略题解：

  这个应该是trie比较基础的题目了吧。构建一棵trie树，每次插入的时候判断一下，如果这个字符串插完了，并且没有新加节点，那么这个字符串一定是其他的字符串的前缀。我们在标记一下所有字符串的结尾，如果某个字符串插入的时候碰到了另一个字符串的结尾那么说明某个字符串是这个字符串的前缀。。
附程序：

program pku_3630; var ctree:array[0..100000,0..10] of longint; over:array[0..100000] of boolean; a:array[0..20] of longint; tot,n,len,t,i:longint; solve:boolean; {-----------------------------} procedure insert; var i,p:longint; flag:boolean; begin p:=1; flag:=true; for i:=1 to len do begin if ctree[p,a[i]]=0 then begin inc(tot); ctree[p,a[i]]:=tot; flag:=false; end; p:=ctree[p,a[i]]; if over[p] then solve:=true; end; over[p]:=true; if flag then solve:=true; end; {-----------------------------} procedure init; var i:longint; t:char; begin fillchar(ctree,sizeof(ctree),0); fillchar(over,sizeof(over),0); readln(n); solve:=false; tot:=1; for i:=1 to n do begin len:=0; while not eoln do begin inc(len); read(t); val(t,a[len]); end; readln; insert; end; end; {-----------------------------} procedure print; begin if solve then writeln('NO') else writeln('YES'); end; {-----------------------------} begin readln(t); for i:=1 to t do begin init; print; end; end.