POJ2001 Shortest Prefixes （Trie树）

直接用Trie树即可。

每个节点统计经过该点的单词数，遍历时当经过的单词数为1时即为合法的前缀。

type arr=record
        next:array['a'..'z'] of longint;
        w:longint;
        end;
const maxn=;
var T:array[..maxn] of arr;
    s:array[..maxn] of ansistring;
    i,j,m,n,now,num:longint;
begin
  while not eof do
    begin
      inc(n);
      readln(s[n]);
    end;
  num:=;
  for i:= to n do
    begin
      now:=;
      for j:= to length(s[i]) do
        begin
          if T[now].next[s[i][j]]<> then now:=T[now].next[s[i][j]] else
            begin
              inc(num);
              T[now].next[s[i][j]]:=num;
              now:=num;
            end;
          inc(T[now].w);
        end;
    end;
  for i:= to n do
    begin
      write(s[i],' ');
      now:=;
      for j:= to length(s[i]) do
        begin
          now:=T[now].next[s[i][j]];
          write(s[i][j]);
          if T[now].w= then break;
        end;
      writeln;
    end;

end.