2017NOIp 普及组第三题 棋盘

题目描述

有一个m × m的棋盘，棋盘上每一个格子可能是红色、黄色或没有任何颜色的。你现在要从棋盘的最左上角走到棋盘的最右下角。

任何一个时刻，你所站在的位置必须是有颜色的（不能是无色的）， 你只能向上、 下、左、 右四个方向前进。当你从一个格子走向另一个格子时，如果两个格子的颜色相同，那你不需要花费金币；如果不同，则你需要花费 1 个金币。

另外， 你可以花费 2 个金币施展魔法让下一个无色格子暂时变为你指定的颜色。但这个魔法不能连续使用， 而且这个魔法的持续时间很短，也就是说，如果你使用了这个魔法，走到了这个暂时有颜色的格子上，你就不能继续使用魔法； 只有当你离开这个位置，走到一个本来就有颜色的格子上的时候，你才能继续使用这个魔法，而当你离开了这个位置（施展魔法使得变为有颜色的格子）时，这个格子恢复为无色。

现在你要从棋盘的最左上角，走到棋盘的最右下角，求花费的最少金币是多少？

这题开始才55分(┬＿┬)
原因是没有加记忆化
主要在于能走与不能走和施魔法能走和能否施魔法
搜索前先遍历一边所有能走到的点（包括施魔法）
在每个点做一个标记当前格子是否需要施魔法
我写的是深搜，搜索加一个当前格子的状态为条件
再加个记忆化就差不多写完了
别忘了不能到达要输出-1！（在遍历时就能完成）

var
 n,m,j,k,i,l,x,y,z,max:longint;
 map,ans:array[0..1001,0..1001]of longint;
 f:array[0..1001,0..1001]of boolean;
 aans:array[0..1001,0..1001]of longint;
procedure tt(a,b:longint);
begin
 if map[x+1,y]<>1 then map[x+1,y]:=2;
 if map[x-1,y]<>1 then map[x-1,y]:=2;
 if map[x,y+1]<>1 then map[x,y+1]:=2;
 if map[x,y-1]<>1 then map[x,y-1]:=2;
 map[x,y]:=1;
end;

function check(q,p:longint):boolean;
begin
 if (q>n)or(q<1)or(p>n)or(p<1) then exit(false);
 exit(true);
end;

function find(var q,p:longint):longint;
begin
 if q=2 then begin
              q:=p;
              exit(2);
             end;
 if (p=0) and (q=0) then exit(0);
 if (p=0) and (q=1) then exit(1);
 if (p=1) and (q=0) then exit(1);
 if (p=1) and (q=1) then exit(0);
end;

procedure dfs(dep,a,b,rp:longint);
 var
  k,rrp,aa:longint;
begin
 if (a=n) and (b=n) then begin
                          if max>rp then max:=rp;
                          exit;
                         end;
 if (map[a+1,b]=1) and (f[a+1,b]) and check(a+1,b) then
     begin
      f[a+1,b]:=false;
      k:=ans[a+1,b];
      rrp:=rp;
      aa:=rp+find(ans[a+1,b],ans[a,b]);
      if aa1,b]then
       begin
       aans[a+1,b]:=aa;
       dfs(1,a+1,b,aa);
      end;
      rp:=rrp;
      ans[a+1,b]:=k;
      f[a+1,b]:=true;
     end;
 if (map[a+1,b]=2) and (dep=1) and (f[a+1,b]) and check(a+1,b) then
     begin
      f[a+1,b]:=false;
      k:=ans[a+1,b];
      rrp:=rp;
      aa:=rp+find(ans[a+1,b],ans[a,b]);
      if aa1,b]then
       begin
       aans[a+1,b]:=aa;
       dfs(2,a+1,b,aa);
      end;
      rp:=rrp;
      ans[a+1,b]:=k;
      f[a+1,b]:=true;
     end;
 if (map[a-1,b]=1) and (f[a-1,b]) and check(a-1,b) then
     begin
      f[a-1,b]:=false;
      k:=ans[a-1,b];
      rrp:=rp;
      aa:=rp+find(ans[a-1,b],ans[a,b]);
      if aa1,b]then
       begin
       aans[a-1,b]:=aa;
       dfs(1,a-1,b,aa);
      end;
      rp:=rrp;
      ans[a-1,b]:=k;
      f[a-1,b]:=true;
     end;
 if (map[a-1,b]=2) and (dep=1) and (f[a-1,b]) and check(a-1,b) then
     begin
      f[a-1,b]:=false;
      k:=ans[a-1,b];
      rrp:=rp;
      aa:=rp+find(ans[a-1,b],ans[a,b]);
      if aa1,b]then
       begin
       aans[a-1,b]:=aa;
       dfs(2,a-1,b,aa);
      end;
      rp:=rrp;
      ans[a-1,b]:=k;
      f[a-1,b]:=true;
     end;
 if (map[a,b+1]=1) and (f[a,b+1]) and check(a,b+1) then
     begin
      f[a,b+1]:=false;
      k:=ans[a,b+1];
      rrp:=rp;
      aa:=rp+find(ans[a,b+1],ans[a,b]);
      if aa1]then
       begin
       aans[a,b+1]:=aa;
       dfs(1,a,b+1,aa);
      end;
      rp:=rrp;
      ans[a,b+1]:=k;
      f[a,b+1]:=true;
     end;
 if (map[a,b+1]=2) and (dep=1) and (f[a,b+1]) and check(a,b+1) then
     begin
      f[a,b+1]:=false;
      k:=ans[a,b+1];
      rrp:=rp;
      aa:=rp+find(ans[a,b+1],ans[a,b]);
      if aa1]then
       begin
       aans[a,b+1]:=aa;
       dfs(2,a,b+1,aa);
      end;
      rp:=rrp;
      ans[a,b+1]:=k;
      f[a,b+1]:=true;
     end;
 if (map[a,b-1]=1) and (f[a,b-1]) and check(a,b-1) then
     begin
      f[a,b-1]:=false;
      k:=ans[a,b-1];
      rrp:=rp;
      aa:=rp+find(ans[a,b-1],ans[a,b]);
      if aa1]then
       begin
       aans[a,b-1]:=aa;
       dfs(1,a,b-1,aa);
      end;
      rp:=rrp;
      ans[a,b-1]:=k;
      f[a,b-1]:=true;
     end;
 if (map[a,b-1]=2) and (dep=1) and (f[a,b-1]) and check(a,b-1) then
     begin
      f[a,b-1]:=false;
      k:=ans[a,b-1];
      rrp:=rp;
      aa:=rp+find(ans[a,b-1],ans[a,b]);
      if aa1]then
       begin
       aans[a,b-1]:=aa;
       dfs(2,a,b-1,aa);
      end;
      rp:=rrp;
      ans[a,b-1]:=k;
      f[a,b-1]:=true;
     end;
end;
begin
 readln(n,m);
 max:=maxlongint;
 fillchar(f,sizeof(f),true);
 f[1,1]:=false;
 for i:=1 to n do
  for j:=1 to n do
   begin
   ans[i,j]:=2;
   aans[i,j]:=maxlongint;
   end;
 for i:=1 to m do
  begin
   readln(x,y,z);
   ans[x,y]:=z;
   tt(x,y);
  end;
 dfs(1,1,1,0);
 if max<>2147483647 then writeln(max)
                    else writeln('-1');
end.

输入样例#1：
5 7
1 1 0
1 2 0
2 2 1
3 3 1
3 4 0
4 4 1
5 5 0
输出样例#1：
8

说明

输入输出样例 1 说明