总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]<>'?'