NOIP前夕：noi.openjudge,带通配符的字符串匹配

带通配符的字符串匹配

总Time Limit: 1000msMemory Limit: 65536kB

Description

通配符是一类键盘字符，当我们不知道真正字符或者不想键入完整名字时，常常使用通配符代替一个或多个真正字符。通配符有问号(?)和星号(*)等，其中，“?”可以代替一个字符，而“*”可以代替零个或多个字符。 

你的任务是，给出一个带有通配符的字符串和一个不带通配符的字符串，判断他们是否能够匹配。 

例如，1?456 可以匹配 12456、13456、1a456，但是却不能够匹配23456、1aa456； 

         2*77?8可以匹配 24457798、237708、27798。

Input 

输入有两行，每行为一个不超过20个字符的字符串，第一行带通配符，第二行不带通配符

Output

如果两者可以匹配，就输出“matched”，否则输出“not matched”

Sample Input

1*456?

11111114567

Sample Output

matched

一个很难想的动态规划题
如果是数字 如果相同，f[i,j]=f[i-1,j-1]
            如果不同, f[i,j]=false;

如果是‘？’ 那么一定可以匹配 f[i,j]=f[i-1,j-1]
如果是‘*’  那么分情况讨论
                  不匹配字符   f[i,j]=f[i-1,j]
                  匹配一个字符 f[i,j]=f[i-1,j-1]
                  若当前匹配k个字符，那么匹配k+1个字符  f[i,j]=f[i,j-1];

code：

var a,b:string;
    f:array[0..20,0..20]of boolean;
    i,j,k:longint;

begin readln(a);
      readln(b);
      fillchar(f,sizeof(f),false);
      f[0,0]:=true;
      for i:=1 to length(a) do
          if a[i]='*'
             then f[i,0]:=true
             else break;
      for i:=1 to length(a) do
          for j:=1 to length(b) do
              begin if (a[i]<>'?')and(a[i]<>'*')
                       then begin if (b[i]<>'?')and(b[i]<>'*')
                                     then if (a[i]=b[j])and(f[i-1,j-1])
                                             then f[i,j]:=true;
                                  if b[i]='?'
                                     then f[i,j]:=f[i-1,j-1];
                                  if b[i]='*'
                                     then begin f[i,j]:=f[i-1,j-1]or
                                                        f[i,j-1] or
                                                        f[i-1,j];
                                          end;
                            end;
                    if a[i]='?'
                       then begin if (b[i]<>'?')and(b[i]<>'*')
                                     then f[i,j]:=f[i-1,j-1];
                                  if b[i]='?'
                                     then f[i,j]:=f[i-1,j-1];
                                  if b[i]='*'
                                     then f[i,j]:=f[i-1,j-1] or
                                                  f[i,j-1] or
                                                  f[i-1,j];
                            end;
                    if a[i]='*'
                       then begin if (b[i]<>'?')and(b[i]<>'*')
                                     then f[i,j]:=f[i-1,j-1]or
                                                  f[i-1,j] or
                                                  f[i,j-1];
                                  if b[i]='?'
                                     then f[i,j]:=f[i-1,j-1] or
                                                  f[i-1,j] or
                                                  f[i,j-1];
                                  if b[i]='*'
                                     then f[i,j]:=f[i-1,j-1] or
                                                  f[i-1,j] or
                                                  f[i,j-1];
                            end;
              end;
      if f[length(a),length(b)]
         then writeln('matched')
         else writeln('not matched');
end.