bzoj1054

弱弱的搜索题，

我的做法是将矩阵看做二进制然后用位运算来做的，感觉比较舒服

const dx:array[1..4] of integer=(-1,1,0,0);
      dy:array[1..4] of integer=(0,0,-1,1);

type node=record
       po,next:longint;
     end;

var a:array[0..10010] of node;
    d,q:array[0..70010] of longint;
    p:array[0..20] of longint;
    num:array[0..10,0..10] of longint;
    i,j,n,k,m,st,en,len,x,y:longint;
    s:string;

procedure add(x,y:longint);
  begin
    inc(len);
    a[len].po:=y;
    a[len].next:=p[x];
    p[x]:=len;
  end;

procedure bfs;
  var u,j,i,k,x,y,f,r:longint;
  begin
    f:=1;
    r:=1;
    q[1]:=st;
    fillchar(d,sizeof(d),255);
    d[st]:=0;
    while f<=r do
    begin
      x:=q[f];
      k:=1;
      for i:=0 to 15 do
      begin
        if k and x<>0 then
        begin
          j:=p[i];
          while j<>-1 do
          begin
            u:=1 shl a[j].po;
            y:=(x xor k) or u;
            if (x and u=0) and (d[y]=-1) then
            begin
              d[y]:=d[x]+1;
              if y=en then exit;
              inc(r);
              q[r]:=y;
            end;
            j:=a[j].next;
          end;
        end;
        k:=k shl 1;
      end;
      inc(f);
    end;
  end;

begin
  fillchar(num,sizeof(num),255);
  fillchar(p,sizeof(p),255);
  for i:=1 to 4 do
  begin
    readln(s);
    for j:=1 to 4 do
    begin
      num[i,j]:=k;
      st:=st+(ord(s[j])-48)*(1 shl k);
      inc(k);
    end;
  end;
  readln;
  for i:=1 to 4 do
  begin
    readln(s);
    for j:=1 to 4 do
      en:=en+(ord(s[j])-48)*(1 shl num[i,j]);
  end;
  for i:=1 to 4 do
    for j:=1 to 4 do
      for k:=1 to 4 do
      begin
        x:=i+dx[k];
        y:=j+dy[k];
        if num[x,y]<>-1 then add(num[i,j],num[x,y]);
      end;
  bfs;
  writeln(d[en]);
end.