JZOJ3450. 【NOIP2013模拟联考3】山峰(summits) (Standard IO)

Description

作为地质学家的JIH,为了绘制地图进行了野外考察。考察结束，他得到了一张n*m的地面高度地图。为了科学研究，JIH定义了一种山峰叫做d-山峰。一个高度为h地点被称作d-山峰，只有满足从这里出发，在不经过小于等于h-d的地点的前提下无法达到比它更高的地方。JIH正纠结于怎么分礼物，标出d-山峰的任务就交给你了。

 

Input

第一行n,m,d
第二行开始，有一个n*m的矩阵表示地图，用空格隔开。

 

Output

输出d-山峰的个数。

 

Solution

就是搜索，过了，极限时间复杂度O（n²m²）。

玄学！

代码

const
  dx:array [1..4] of longint=(0,1,-1,0);
  dy:array [1..4] of longint=(1,0,0,-1);
var
  n,m,d,ans,max:longint;
  a,f:array [0..501,0..501] of longint;
  bo:array [0..501,0..501] of boolean;
procedure init;
var
  i,j:longint;
begin
  readln(n,m,d);
  max:=0;
  for i:=1 to n do
   for j:=1 to m do
     begin
       read(a[i,j]);
       if a[i,j]>max then
         max:=a[i,j];
     end;
end;

function dfs(x,y,h,sum,tot:longint):boolean;
var
  i,xx,yy:longint;
begin
  f[x,y]:=sum;
  if (a[x,y]>h) or (a[x,y]=h) and (bo[x,y]) then
    begin
      ans:=ans-1;
      exit(true);
    end;
  if tot>n*m then exit(false);
  for i:=1 to 4 do
    begin
      xx:=x+dx[i]; yy:=y+dy[i];
      if (xx<=n) and (xx>0) and (yy<=m) and (yy>0) then
        if (f[xx,yy]<>sum) and (a[xx,yy]>h-d) then
          if dfs(xx,yy,h,sum,tot+1) then exit(true);
    end;
  exit(false);
end;

procedure main;
var
  i,j:longint;
begin
  ans:=n*m;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<>max then
        bo[i,j]:=dfs(i,j,a[i,j],i*m+j,0);
  writeln(ans);
end;

begin
  init;
  main;
end.