1709: [Usaco2007 Oct]Super Paintball超级弹珠
1709: [Usaco2007 Oct]Super Paintball超级弹珠
Time Limit: 5 Sec Memory Limit: 64 MB
Submit: 339 Solved: 264
Description
奶牛们最近从著名的奶牛玩具制造商Tycow那里,买了一套仿真版彩弹游戏设备(类乎于真人版CS)。 Bessie把她们玩游戏草坪划成了N * N(1 <= N<= 100)单位的矩阵,同时列出了她的 K (1 <= K <= 100,000)个对手在草地上的位置。然后她拿着这张表来找你,希望你能帮她计算一个数据。 在这个游戏中,奶牛可以用一把弹珠枪向8个方向中的任意一个射出子弹。8个方向分别是:正北,正南,正东,正西,以及夹在这4个正方向之间的45°角:东北,东南,西北,西南方向。 Bessie望你告诉她,如果她想站在一个可以射到她的所有对手的格子上,那么她有多少种选择。当然,贝茜可以跟她的某一个对手站在同一个格子上,并且在这种情况下,你可以认为贝茜能射到跟她站在同一格子里的对手。
Input
* 第1行: 2个用空格隔开的整数:N和K
* 第2..K+1行: 第i+1行用2个以空格隔开整数R_i和C_i,描述了第i头奶牛的位置,表示她站在第R_i行,第C_i列
Output
* 第1行: 输出1个整数,表示如果Bessie可以选择的格子的数目。
Sample Input
4 3 2 1 2 3 4 1 输入说明: 牧场被划分成了4行4列。Bessie的站位必须保证她能射到站在(2,1),(2,3) 以及(4,1)的奶牛: . . . . C . C . . . . . <--- 奶牛们的位置 C . . .
Sample Output
5 输出说明: Bessie可以选择站在以下格子中的任意一个:(2,1),(2,3),(3,2),(4,1), 以及(4,3)。下右图中,Bessie与其他牛共同占有的格子被标记为'*': . . . . . . . . B . B . --- * . * . . B . . ---/ . B . . B . B . * . B .
HINT
Source
题解:既然正着枚举点的合法性显然比较扯。。。那么何不反其道而行之呢,嗯哼,懂我的意思吧(HansBug:就算不懂看我程序也该懂了吧)
1 /**************************************************************
2 Problem: 1709
3 User: HansBug
4 Language: Pascal
5 Result: Accepted
6 Time:4 ms
7 Memory:304 kb
8 ****************************************************************/
9
10 var
11 i,j,k,l,m,n,x,y:longint;
12 a,b:array[0..100,0..100] of longint;
13 begin
14 readln(n,m);l:=0;
15 fillchar(a,sizeof(a),0);
16 fillchar(b,sizeof(b),0);
17 for i:=1 to m do
18 begin
19 readln(j,k);
20 l:=l+1-a[j,k];
21 a[j,k]:=1;
22 end;
23 m:=l;l:=0;
24 for i:=1 to n do
25 for j:=1 to n do
26 if a[i,j]=1 then
27 begin
28 x:=i-1;y:=j;
29 while x>0 do
30 begin
31 inc(b[x,y]);
32 dec(x);
33 end;
34 x:=i+1;y:=j;
35 while x<=n do
36 begin
37 inc(b[x,y]);
38 inc(x);
39 end;
40 x:=i;y:=j-1;
41 while y>0 do
42 begin
43 inc(b[x,y]);
44 dec(y);
45 end;
46 x:=i;y:=j+1;
47 while y<=n do
48 begin
49 inc(b[x,y]);
50 inc(y);
51 end;
52 x:=i-1;y:=j-1;
53 while (x>0) and (y>0) do
54 begin
55 inc(b[x,y]);
56 dec(x);dec(y);
57 end;
58 x:=i+1;y:=j-1;
59 while (x<=n) and (y>0) do
60 begin
61 inc(b[x,y]);
62 inc(x);dec(y);
63 end;
64 x:=i-1;y:=j+1;
65 while (x>0) and (y<=n) do
66 begin
67 inc(b[x,y]);
68 dec(x);inc(y);
69 end;
70 x:=i+1;y:=j+1;
71 while (x<=n) and (y<=n) do
72 begin
73 inc(b[x,y]);
74 inc(x);inc(y);
75 end;
76 inc(b[i,j]);
77 end;
78 l:=0;
79 for i:=1 to n do
80 for j:=1 to n do
81 if b[i,j]=m then inc(l);
82 writeln(l);
83 readln;
84 end.
- Spring和SpringMVC父子的容器之道---[上篇]
- 快速完成(图片旋转,查看原图)
- Jsp中格式化时间戳的常用标签
- 反射+自定义注解---实现Excel数据列属性和JavaBean属性的自动映射
- 后台模板管理系统___左侧菜单数据的异步加载
- Shiro眼皮下玩ajax,玩出302 Found
- 对于JSONObject,我只是临时抱佛脚
- 总结切面编程AOP的注解式开发和XML式开发
- SpringMVC注解@RequestMapping之produces属性导致的406错误
- SpringBoot集成MyBatis的分页插件PageHelper(回头草)
- SpringBoot整合Mybatis之进门篇
- Tomcat和Java Virtual Machine的性能调优总结
- 一次浴火重生的MySQL优化(EXPLAIN命令详解)
- 简单聊聊不可或缺的Nginx反向代理服务器--实现负载均衡【上篇】
- 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 数组属性和方法
- Linux Netcat 命令——网络工具中的瑞士军刀
- __all__ 是干嘛用的?
- 业务视角谈谈Kafka(第一篇)
- 面试必问:session,cookie和token的区别
- 14-2常见软件包管理任务
- Pytest之skip、skipif、xfail
- 为什么spring不推荐@Autowired注入,提示:Field injection is not recommended
- 使用springboot发送复杂类型正文的邮件
- 业务视角谈谈Kafka(第三篇)
- 图文详解互联网根基之HTTP
- Jenkins部署异常:报错 TomcatManagerException: FAIL - Unable to delete
- Spring Boot打包的jar运行的时候提示:没有主清单属性
- 主流消息队列选型技术比较
- 深入浅出-网络七层模型
- 【警惕】K8S下Telnet失效陷阱