1751: [Usaco2005 qua]Lake Counting
1751: [Usaco2005 qua]Lake Counting
Time Limit: 5 Sec Memory Limit: 64 MB
Submit: 190 Solved: 150
Description
Due to recent rains, water has pooled in various places in Farmer John's field, which is represented by a rectangle of N x M (1 <= N <= 100; 1 <= M <= 100) squares. Each square contains either water ('W') or dry land ('.'). Farmer John would like to figure out how many ponds have formed in his field. A pond is a connected set of squares with water in them, where a square is considered adjacent to all eight of its neighbors. Given a diagram of Farmer John's field, determine how many ponds he has.
Input
* Line 1: Two space-separated integers: N and M * Lines 2..N+1: M characters per line representing one row of Farmer John's field. Each character is either 'W' or '.'. The characters do not have spaces between them.
Output
* Line 1: The number of ponds in Farmer John's field.
Sample Input
10 12 W........WW. .WWW.....WWW ....WW...WW. .........WW. .........W.. ..W......W.. .W.W.....WW. W.W.W.....W. .W.W......W. ..W.......W.
Sample Output
3 OUTPUT DETAILS: There are three ponds: one in the upper left, one in the lower left, and one along the right side.
HINT
Source
题解:直接萌萌哒DFS秒之,经典的普及组难度基础题,水水哒
(Tip:38行的dfs(a1,a2)貌似只有这样写在本机才能对,提交也能A;很神奇的是如果直接写dfs(i,j)的话在本机就会出现带入的是(1,1)结果进去的是(2,2)QAQ,然后各种神奇跪OTL,更神奇的是这个在本机都跪成狗的程序居然submit之后也能A(QAQ),求神犇解释)
1 var
2 i,j,k,l,m,n,a1,a2:longint;
3 c1:char;
4 a:array[0..200,0..200] of longint;
5 procedure dfs(x,y:longint);inline;
6 begin
7 a[x,y]:=0;
8 if a[x-1,y-1]=1 then dfs(x-1,y-1);
9 if a[x,y-1]=1 then dfs(x,y-1);
10 if a[x+1,y-1]=1 then dfs(x+1,y-1);
11 if a[x-1,y+1]=1 then dfs(x-1,y+1);
12 if a[x,y+1]=1 then dfs(x,y+1);
13 if a[x+1,y+1]=1 then dfs(x+1,y+1);
14 if a[x-1,y]=1 then dfs(x-1,y);
15 if a[x+1,y]=1 then dfs(x+1,y);
16 end;
17 begin
18 readln(n,m);
19 fillchar(a,sizeof(a),0);
20 for i:=1 to n do
21 begin
22 for j:=1 to m do
23 begin
24 read(c1);
25 case c1 of
26 'W':a[i,j]:=1;
27 '.':a[i,j]:=0;
28 end;
29 end;
30 readln;
31 end;
32 l:=0;
33 for i:=1 to n do
34 for j:=1 to m do
35 if a[i,j]=1 then
36 begin
37 a1:=i;a2:=j;
38 inc(l);dfs(a1,a2);
39 end;
40 writeln(l);
41 readln;
42 end.
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- 小程序数据埋点实践之曝光量
- Notification API,为你的网页添加桌面通知推送
- 点亮你的Vue技术栈,万字Nuxt.js实践笔记来了
- 小程序框架原理之渲染流程及通信流程
- Koa源码解析,带你实现一个迷你版的Koa
- 手摸手带你理解Vue响应式原理
- 手摸手带你理解Vue的Computed原理
- 10个Vue开发技巧助力成为更好的工程师(二)
- Vue源码解析,keep-alive是如何实现缓存的?
- Python每日一题
- Python 每日一题
- Python每日一题:MRO
- Python每日一题:变量交换
- Python每日一题:__new__ 与 __init__
- Python每日一题:标准库