【NOIP2016提高A组模拟9.9】Word

Description

有k个字符串{S1,S2,…，Sk}，其中的每个字符不是空格，就是26个小写英文字母中的一个。对于常数 l和d，我们的目标是从这k个字符串中得出一个(l,d)-样词，它是一个长度为l的字符串W=W[1]W[2]…W[l]，它的每个字符必须符合下面的条件：

每个字符串Si(i=1,2,…,k)都有一个长度为l的子串X=X[1]X[2]…X[l]，X和W的出错率小于或等于d。(X和W的出错率是(X[j],W[j])的对数，其中，X[j]<>W[j],j=1,2,…,l)

在这个任务中，给你 l,d和一组字符串；你要从中得出一个(l,d)-样词。你可以默认(l,d)-样词是存在的，而且是唯一的。

例1

如下3个字符串，相对应的(3,0)-样词是“oil”：

oil is expensive

we have three oilers

be more oily

例2

如下4个字符串，相对应的(5,1)-样词是“apple”：

you have two applas

i am an ppple

we are acples

adples are good for health

Input

输入文件第一行有两个整数 l和d，中间有一个空格，其中1<=l<=10,0<=d<=2。第二行有一个整数k，1<=k<=30。剩下的k行分别是k个字符串，每个字符串的长度最多是50。

Output

输出文件仅有一行包含有一个长度为l的字符串，这个字符串是输入文件中字符串集的(l,d)-样词。可以保证，输入数据总是有且只有一个(l,d)-样词。

Sample Input

5 1

4

you have two applas

i am an ppple

we are acples

adples are good for health

Sample Output

apple

Data Constraint

1<=l<=10,0<=d<=2

比赛时の想法

在第一个字符串中枚举一段话，再枚举其中的d个错误的地方，在与后面的字符串匹配的时候就可以知道错误的地方应该填什么了（如果合法的话）

var
s:array[0..35]of string;
bz:array[0..35]of boolean;
len,cq:array[0..35]of longint;
i,j,k,l,n,d,x,y,xx,yy:longint;
pi:string;
procedure dfs(x:longint;p:string);
var
i,j,t1,t2,cc:longint;
cy:string;
b:boolean;
begin
if x=k+1 then
begin
for i:=1 to k do
begin
t1:=0;
for j:=cq[i] to cq[i]+l-1 do
if s[i][j]<>p[j-cq[i]+1] then inc(t1);
if t1>d then exit;
end;
writeln(p);
halt;
end else
begin
for i:=1 to len[x]-l+1 do
begin
t1:=0;
cc:=0;
cy:=p;
b:=true;
for j:=i to i+l-1 do
begin
if s[x][j]<>p[j-i+1] then
begin
if bz[j-i+1]=true then
begin
inc(cc);
if cc>d then
begin
b:=false;
break;
end;
cy[j-i+1]:=s[x][j];
end else
begin
inc(t1);
if t1>d then
begin
b:=false;
break;
end;
end;
end;
end;
if b=false then continue;
if cy[xx]<>p[xx] then bz[xx]:=false;
if cy[yy]<>p[yy] then bz[yy]:=false;
if (t1<d) and (cy[xx]<>p[xx]) then
begin
inc(t1);
cy[xx]:=p[xx];
bz[xx]:=true;
end;
if (t1<d) and (cy[yy]<>p[yy]) then
begin
inc(t1);
cy[yy]:=p[yy];
bz[yy]:=true;
end;
cq[x]:=i;
dfs(x+1,cy);
if cy[xx]<>p[xx] then bz[xx]:=true;
if cy[yy]<>p[yy] then bz[yy]:=true;
end;
end;
end;
begin
//assign(input,'t3.in'); reset(input);
readln(l,d);
readln(k);
for i:=1 to k do readln(s[i]);
for i:=1 to k do len[i]:=length(s[i]);
for i:=1 to len[1]-l+1 do
begin
pi:='';
for j:=i to i+l-1 do pi:=pi+s[1][j];
for x:=0 to l do
for y:=0 to l do
if (x<>y) or ((x=0) and (y=0)) then
begin
fillchar(cq,sizeof(cq),0);
cq[1]:=i;
xx:=x; yy:=y;
if (d<=1) and (y<>0) then continue;
if (d=0) and (x<>0) then continue;
fillchar(bz,sizeof(bz),false);
bz[x]:=true;
bz[y]:=true;
dfs(2,pi);
end;
end;
//close(input);
end.