Day4：T3搜索 T4数学题排列组合

var
  a,g:array[0..6,0..6] of longint;
  n,i,j,ans:longint;
  k:char;

procedure huan(x,y:longint);//对(x,y)进行操作
begin
  a[x,y]:=1-a[x,y];
end;

procedure work(x:longint);//开始在第一排的状态已经确定的前提下进行其他行的操作
var
  i,j,k:longint;
begin
  g:=a;//temp数组
  k:=x;//初始值表示已经操作过了几次 当然这个k不总是0
  for i:=1 to 4 do
    for j:=1 to 5 do
      if a[i,j]=0 then
        begin
          huan(i,j);huan(i+1,j);huan(i+2,j);huan(i+1,j-1);huan(i+1,j+1);//将这个点下面一格的灯操作一下
          inc(k);
        end;
  for i:=1 to 5 do
    if a[5,i]=0 then break//如果还有灯是关着的那么就结束.
      else
        if i=5 then
          if k<ans then ans:=k;//如果全部都是开着的那么就更新答案
  a:=g;
end;

procedure cq(x,y:longint);
begin
  if x=6 then work(y)//如果有六个灯了那么就开始找 一开始的初始步骤数为y
    else
      begin
        cq(x+1,y);//找下一个灯
        huan(1,x);huan(1,x-1);huan(2,x);huan(1,x+1);//操作一个灯
        cq(x+1,y+1);//找下一个灯
        huan(1,x);huan(1,x-1);huan(2,x);huan(1,x+1);//回溯~
      end;
end;

begin
  readln(n);
  for n:=n downto 1 do//n可以这样用
    begin
      ans:=7;//用于更新答案(如果可以)
      for i:=1 to 5 do
        begin
          for j:=1 to 5 do
            begin
              read(k);
              a[i,j]:=ord(k)-48;
            end;
          readln;
        end;//读入数据
      cq(1,0);//cq(x,y)表示找第一排的x个灯有y个被操作过的情况(当然是没有重复的)
      if ans<7 then writeln(ans) else writeln(-1);
      readln;
    end;
end.