CH Round #16

Prefix 35/105	From lydrainbowcat
Channel 4/87	From lydrainbowcat
Parade 7/78	From lydrainbowcat

当时在看数论，没参加比赛（蒟蒻怕掉Rating我会说？）

简单看了一下题，难度似乎不是很大，都有一定思路，举办方已经给了题解，不过我还是说说自己的想法吧，也就是昨天的第一眼感受。

Prefix：前缀很容易就想起来Trie，一上来就数据结构？这么凶残？不过Trie码起来也很快的，一边码完，测了下样例就交了。==可耻的85了……改了一下A了，貌似将近花了30分钟……想当年ACM，就挂在Trie上了，绝对AC的算法，可惜当时Trie很不熟。不过为了不体现凶残性，qsort应该也是可以做的，字典序，然后每个串与前后两个串（必定相似性最高）对比枚举一下就出来了。

Channel：貌似很厉害的T。反正一看到这种东西就容易想到树状数组、线段树之类的，不过貌似不太可行，目测下写爆搜。

Parade：把相邻的数字作差，转换成大、小写字母，然后上KMP。其实我也不知道这个可不可行。目测官解也是KMP，不过估计思路不一样吧。

program ta;
type
 trie=^link;
 link=record
  c:integer;
  t:array ['a'..'z'] of trie;
 end;
var
 n,ls,i:integer;
 z:char;
 head:trie;
 s:array [1..1000] of ansistring;
procedure fill(q:trie);
begin
 for z:='a' to 'z' do q^.t[z]:=nil;
end;
procedure build(q:trie;x:integer);
begin
 inc(q^.c);
 if x>ls then exit;
 if q^.t[s[i][x]]=nil then begin
  new(q^.t[s[i][x]]);fill(q^.t[s[i][x]]);q^.t[s[i][x]]^.c:=0;
 end;
 build(q^.t[s[i][x]],x+1);
end;
function ask(q:trie;x:integer):integer;
begin
 if q^.c=1 then exit(x-1);
 if x>ls then exit;
 exit(ask(q^.t[s[i][x]],x+1));
end;
begin
 readln(n);
 new(head);fill(head);head^.c:=1;
 for i:=1 to n do begin
  readln(s[i]);ls:=length(s[i]);
  build(head,1);
 end;
 for i:=1 to n do begin
  ls:=length(s[i]);
  writeln(copy(s[i],1,ask(head,1)));
 end;
end.