【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.