记录编号	27964	评测结果	AAAAAAAAAA
题目名称	交错匹配	最终得分	100
用户昵称	11111111	是否通过	通过
代码语言	Pascal	运行时间	0.059 s
提交时间	2011-10-10 21:02:59	内存使用	0.16 MiB

var
  m,n,i,j,x,y:byte;
  a,b:array[1..200] of integer;
  f:array[0..200,0..200] of byte;
begin
  assign(input,'crossa.in');reset(input);
  assign(output,'crossa.out');rewrite(output);
  readln(m,n);
  for i:=1 to m do read(a[i]);
  readln;
  for i:=1 to n do read(b[i]);
  readln;
  fillchar(f,sizeof(f),0);



  for i:=1 to m do
    for j:=1 to n do
      begin
        if f[i-1,j]>f[i,j-1]
          then f[i,j]:=f[i-1,j]
          else f[i,j]:=f[i,j-1];
        if a[i]<>b[j] then
        for x:=i-1 downto 1 do
          if a[x]=b[j] then
            for y:=j-1 downto 1 do
              if a[i]=b[y] then
                if f[x-1,y-1]+2>f[i,j] then f[i,j]:=f[x-1,y-1]+2;
      end;








  writeln(f[m,n]);
  close(output);
end.