bzoj3208: 花神的秒题计划Ⅰ

3208: 花神的秒题计划Ⅰ

Time Limit: 16 Sec  Memory Limit: 128 MB
Submit: 691  Solved: 471
[Submit][Status][Discuss]

Description

 

背景【backboard】：

 Memphis等一群蒟蒻出题中，花神凑过来秒题……

 

描述【discribe】：

 花花山峰峦起伏，峰顶常年被雪，Memphis打算帮花花山风景区的人员开发一个滑雪项目。

 

 我们可以把风景区看作一个n*n的地图，每个点有它的初始高度，滑雪只能从高处往低处滑【严格大于】。但是由于地势经常变动【比如雪崩、滑坡】，高度经常变化；同时，政府政策规定对于每个区域都要间歇地进行保护，防止环境破坏。现在，滑雪项目的要求是给出每个n*n个点的初始高度，并给出m个命令，C a b c表示坐标为a,b的点的高度改为c；S a b c d表示左上角为a,b右下角为c,d的矩形地区开始进行保护，即不能继续滑雪；B a b c d表示左上角为a b,右下角为c d的矩形地区取消保护，即可以开始滑雪；Q表示询问现在该风景区可以滑雪的最长路径为多少。对于每个Q要作一次回答。

 

 花神一看，这不是超简单！立刻秒出了标算~

 

 

Input

第一行n，第二行开始n*n的地图，意义如上；接下来一个m，然后是m个命令，如上

 

 

Output

对于每一个Q输出单独一行的回答

 

Sample Input

5
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
20 19 18 17 16
21 22 23 24 25
5
C 1 1 3
Q
S 1 3 5 5
S 3 1 5 5
Q

Sample Output

24
3

样例解释：
第一个Q路线为：25->24->23->22….->3->2
第二个Q的路线为：10->9->2

HINT

 

100%的数据：1<=n<=700;1<=m<=1000000;其中Q、S、B操作总和<=100;

题中所有数据不超过2*10^9

 

题解

记忆化搜索……太裸了……DP也行

/**************************************************************
    Problem: 3208
    User: 1090900715
    Language: Pascal
    Result: Accepted
    Time:16576 ms
    Memory:4544 kb
****************************************************************/
 
program j01;
var f,h:array[0..700,0..700]of longint;
    bo:array[0..700,0..700]of boolean;
    c:array[0..4,0..1]of longint;
    n,m,i,j,a,b,c1,d,ans:longint;
    ch:char;
 
function max(a,b:Longint):longint;
begin
  if a>b then exit(a) else exit(b);
end;
 
function jud(x,y,x1,y1:longint):boolean;
begin
  if (x1<=0)or(x1>n) then exit(false);
  if (y1<=0)or(y1>n) then exit(false);
  exit((h[x,y]>h[x1,y1])and bo[x1,y1]);
end;
 
procedure dfs(i,j:longint);
var x:longint;
begin
  if f[i,j]<>0 then exit;
  f[i,j]:=1;
  for x:=1 to 4 do
    if jud(i,j,i+c[x,0],j+c[x,1]) then
    begin
      dfs(i+c[x,0],j+c[x,1]);
      f[i,j]:=max(f[i,j],f[i+c[x,0],j+c[x,1]]+1);
    end;
  ans:=max(ans,f[i,j]);
end;
 
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      read(h[i,j]);
  fillchar(bo,sizeof(bo),1);
  c[1,0]:=0;c[1,1]:=1;
  c[2,0]:=0;c[2,1]:=-1;
  c[3,0]:=-1;c[3,1]:=0;
  c[4,0]:=1;c[4,1]:=0;
  readln(m);
  while m>0 do
  begin
    dec(m);
    read(ch);
    while not(ch in['C','S','B','Q']) do read(ch);
    if ch='C' then
    begin
      readln(a,b,c1);
      h[a,b]:=c1;
    end;
    if ch='S' then
    begin
      readln(a,b,c1,d);
      for i:=a to c1 do
        for j:=b to d do
          bo[i,j]:=false;
    end;
    if ch='B' then
    begin
      readln(a,b,c1,d);
      for i:=a to c1 do
        for j:=b to d do
          bo[i,j]:=true;
    end;
    if ch='Q' then
    begin
      fillchar(f,sizeof(f),0);
      ans:=0;
      for i:=1 to n do
        for j:=1 to n do
          if (f[i,j]=0)and(bo[i,j]) then dfs(i,j);
      writeln(ans);
    end;
  end;
end.