1054: [HAOI2008]移动玩具

1054: [HAOI2008]移动玩具

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 1272  Solved: 690
[Submit][Status][Discuss]

Description

在一个4*4的方框内摆放了若干个相同的玩具，某人想将这些玩具重新摆放成为他心中理想的状态，规定移动时只能将玩具向上下左右四个方向移动，并且移动的位置不能有玩具，请你用最少的移动次数将初始的玩具状态移动到某人心中的目标状态。

Input

前4行表示玩具的初始状态，每行4个数字1或0，1表示方格中放置了玩具，0表示没有放置玩具。接着是一个空行。接下来4行表示玩具的目标状态，每行4个数字1或0，意义同上。

Output

一个整数，所需要的最少移动次数。

Sample Input

1111
0000
1110
0010

1010
0101
1010
0101

Sample Output

4

HINT

 

Source

题解：其实是一道水水哒搜索题，只要你知道怎么状压，怎么用一个数组判重同时记录最优值就好了

（PS：其实我WA掉的那一次是没特判开头结尾情况完全一样的情形，应该输出0，而我原来的程序将没有输出= =，注意下）

/**************************************************************
    Problem: 1054
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:36 ms
    Memory:772 kb
****************************************************************/
 
var
   i,j,k,l,m,n,x0,x1,x,y,f,r:longint;
   c,d:array[0..70000] of longint;
   list:array[0..20] of longint;ch:char;
function num(x,y:longint):longint;inline;
         begin
              exit(4*(x-1)+y);
         end;
function getit(x,y:longint):longint;inline;
         begin
              if odd(x div list[y]) then exit(1) else exit(0);
         end;
procedure orz(x:longint);inline;
          begin
               writeln(x);
               readln;
               halt;
          end;
begin
     list[1]:=1;for i:=2 to 16 do list[i]:=list[i-1]*2;
     x0:=0;x1:=0;
     for i:=1 to 4 do
         begin
              for j:=1 to  4 do
                  begin
                       read(ch);
                       inc(x0,(ord(ch)-48)*list[num(i,j)]);
                  end;
              readln;
         end;
     readln;
     for i:=1 to 4 do
         begin
              for j:=1 to  4 do
                  begin
                       read(ch);
                       inc(x1,(ord(ch)-48)*list[num(i,j)]);
                  end;
              readln;
         end;
     if x0=x1 then orz(0);
     for i:=0 to 65536 do c[i]:=maxlongint;
     d[1]:=x0;f:=1;r:=2;c[x0]:=0;
     while f<r do
           begin
                l:=d[f];i:=1;x:=1;y:=0;
                while l>0 do
                      begin
                           x:=x+y div 4;y:=y mod 4+1;
                           if odd(l) then
                              begin
                                   if x>1 then
                                      begin
                                           if getit(d[f],i-4)=0 then
                                              begin
                                                   d[r]:=d[f]-list[i]+list[i-4];
                                                   if c[d[r]]=maxlongint then
                                                      begin
                                                           c[d[r]]:=c[d[f]]+1;
                                                           if d[r]=x1 then orz(c[d[r]]);
                                                           inc(r);
                                                      end;
                                              end
                                      end;
                                   if x<4 then
                                      begin
                                           if getit(d[f],i+4)=0 then
                                              begin
                                                   d[r]:=d[f]-list[i]+list[i+4];
                                                   if c[d[r]]=maxlongint then
                                                      begin
                                                           c[d[r]]:=c[d[f]]+1;
                                                           if d[r]=x1 then orz(c[d[r]]);
                                                           inc(r);
                                                      end;
                                              end;
                                      end;
                                   if y>1 then
                                      begin
                                           if getit(d[f],i-1)=0 then
                                              begin
                                                   d[r]:=d[f]-list[i]+list[i-1];
                                                   if c[d[r]]=maxlongint then
                                                      begin
                                                           c[d[r]]:=c[d[f]]+1;
                                                           if d[r]=x1 then orz(c[d[r]]);
                                                           inc(r);
                                                      end;
                                              end;
                                      end;
                                   if y<4 then
                                      begin
                                           if getit(d[f],i+1)=0 then
                                              begin
                                                   d[r]:=d[f]-list[i]+list[i+1];
                                                   if c[d[r]]=maxlongint then
                                                      begin
                                                           c[d[r]]:=c[d[f]]+1;
                                                           if d[r]=x1 then orz(c[d[r]]);
                                                           inc(r);
                                                      end;
                                              end;
                                      end;
                              end;
                           inc(i);l:=l div 2;
                      end;
                inc(f);
           end;
end.