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 aa<aans[a+1,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 aa<aans[a+1,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 aa<aans[a-1,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 aa<aans[a-1,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 aa<aans[a,b+1]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 aa<aans[a,b+1]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 aa<aans[a,b-1]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 aa<aans[a,b-1]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 说明