2014年普级组模拟试题一 五香豆腐

Description
　经过谢老师n次的教导，dfc终于觉悟了——过于腐败是不对的。但是dfc自身却无法改变自己，于是他找到了你，请求你的帮助。
dfc的内心可以看成是5*5个分区组成，每个分区都可以决定的的去向，0表示继续爱好腐败，1表示改正这个不良的习惯。只有当25个分区都为1时，dfc才会改正腐败这个不良习惯。你有一根神奇的魔法棒，可以使点中的分区以及这个分区上下左右改变（1变0,0变1）。这根神奇的魔法棒只能使用6次了，请问你最少使用多少次才可以救醒这dfc。（使用超过6次则输出-1，表示dfc已经无药可救了）。（因为dfc实在太顽固不化，所以你要救醒他n次，但每次都有会获得由谢老师送的一根新的魔法棒,不过之前那根会消失）。
Input
　第一行有一个正整数n，代表数据中共有n组数据。
　　以下若干行数据分为n组，每组数据有5行，每行5个字符。每组数据描述了25个分区的初始状态。各组数据间用一个空行分隔。
Output
输出数据一共有n行，每行有一个小于等于6的整数，它表示对于输入数据中对应的每组数据最少需要几步才能将救醒dfc。
　　对于一个数据，如果无法在规定的条件救醒dfc，请输出“-1”。
Sample Input
3
00111
01011
10001
11010
11100

11101
11101
11110
11111
11111

01111
11111
11111
11111
11111
Sample Output
3
2
-1
Hint
　　30%，n <= 5；
　　100%，n <= 500。

解题思路：
用广搜进行枚举，如果头指针大于6则枚举完，读入方阵后用十进制储存，输出对应答案即可。

var  hash:array[0..34000000] of shortint;  f,a:array[1..500000] of longint;  n,m,l,i,j,k:longint;  s:string;function change(x,y:longint):longint;  begin    x:=x xor (1 shl y);    if (y mod 5<>0) then x:=x xor (1 shl (y-1));    if ((y+1) mod 5<>0) then x:=x xor (1 shl (y+1));    if (y>4) then x:=x xor (1 shl (y-5));    if (y<20) then x:=x xor (1 shl (y+5));    exit(x);end;procedure bfs;  var    head,tail,i:longint;    t,t1:longint;  begin    head:=0;    tail:=1;    f[1]:=1 shl 25-1;    hash[f[1]]:=0;    a[1]:=0;    repeat      inc(head);      if hash[f[head]]>=6 then break;      for i:=0 to 24 do        begin          t:=change(f[head],i);          if hash[t]=-1 then            begin              if hash[f[head]]+1<=6 then                begin                  inc(tail);                  f[tail]:=t;                  a[tail]:=head;                  hash[t]:=hash[f[head]]+1;                end;            end;        end;    until head>=tail;end;begin  for i:=0 to 34000000 do    hash[i]:=-1;  bfs;  readln(m);  for l:=1 to m do    begin      n:=0;      for i:=1 to 5 do        begin          readln(s);          for j:=1 to 5 do            begin              k:=ord(s[j])-ord('0');              n:=n*2+k;            end;        end;      writeln(hash[n]);      if l<m then readln;    end;end.