[Weekly] 2014.03.01-2014.03.08
这周写过好多东西,虽然还没有完全弄明白线段树,但是progress还是有的!
不过有时候真的很想哭,因为自己的梦想连别人看看韩剧、无所事事还要分量轻,实在不明白政治课的Teamwork意义何在,花两分钟百度文库找了个PPT和论文扔给我就交差,你也不先看看这些专业术语你看不看得懂!!这周五开始我不上QQ了,为的就是不要有人以为我在线就说明我很空闲然后扔一坨事情给我做!(好吧这个博客不是用来吐槽生活的,回正轨)
上周六回家瞄了一眼Codeforces,发现15分钟后有一场比赛,不过我等级不够只能参加Round #233 div 2。半小时内把A和B给做了。然后…然后…C还没搞定,Codeforces就跪了,而且是长跪不起。(最后的结果是整个服务器倒退到三周前的备份,于是我还重新注册了个账号,#233 div 2的题目貌似也不见了?!)
A题 浏览器翻页界面的模拟
program cf__A;
var n,p,k,h,r,now:integer;
begin
readln(n,p,k);
h:=p-k;
if h< then h:=;
r:=p+k;
if r>n then r:=n;
if h> then write('<<');
for now:=h to r do
begin
if now= then
if now=p then write('(',p,')') else write(now)
else if now=p then write(' (',p,')') else write(' ',now);
end;
if r<n then write(' >>');
end.
CF_233_A
B题 按要求塞球,不过找找规律就知道其实是二进制转十进制…
program cf__B;
var s:array[..] of integer;
n,i:longint;
str:string;
two,ans:int64;
function check:boolean;
var i:integer;
begin
for i:= to n do
if s[i]= then exit(false);
exit(true);
end; begin
readln(n);
readln(str);
for i:= to n do
if str[i]='R' then s[i]:= else s[i]:=;
two:=;ans:=;
for i:= to n do
begin
if s[i]= then ans:=ans+two;
two:=two*;
end;
writeln(ans);
end.
CF_233_B
这场比赛的编号是#233,冥冥中注定了当晚的悲剧…
还有昨天上课码的mrzx,昨晚精神特别好,而且题目简单易懂,所以一个半小时4题~~\(≧▽≦)/~
mr442 潜望镜 模拟即可 话说注意坐标和m、n的关系,我就因为这个搞反调了20min
program mr442;
const dy:array[..] of integer=(,,,-);
dx:array[..] of integer=(-,,,);
var m,n,i,j,t:integer;
a:array[..,..] of char;
procedure solve(x,y,direct:integer);
begin
repeat
if a[x,y]='*' then
begin
x:=x+dx[direct];
y:=y+dy[direct];
end;
if a[x,y]='/' then
begin
if direct= then direct:= else
if direct= then direct:= else
if direct= then direct:= else
if direct= then direct:=;
x:=x+dx[direct];y:=y+dy[direct];
end;
if a[x,y]='\' then
begin
if direct= then direct:= else
if direct= then direct:= else
if direct= then direct:= else
if direct= then direct:=;
x:=x+dx[direct];y:=y+dy[direct];
end;
until not (a[x,y] in ['/','*','\']);
if x= then writeln(y);
if x=n+ then writeln(m+y);
if y= then writeln(*m+x);
if y=m+ then writeln(*m+n+x);
end; begin
assign(input,'mr442.in4');reset(input);
assign(output,'mr442.ou4');rewrite(output);
readln(n,m);
t:=n;n:=m;m:=t;
for i:= to n do
begin
for j:= to m do
read(a[i,j]);
readln;
end;
for i:= to m do solve(,i,);
for i:= to m do solve(n,i,);
for i:= to n do solve(i,,);
for i:= to n do solve(i,m,);
close(input);close(output);
end.
潜望镜
mr443 Anna取数 看上去难道是博弈论?我勒个擦最后是打表…
program mr443;
var f:array[..] of boolean;
n,i,t,min,max:longint; procedure solve(x:longint);
var t:integer;
begin
min:=;max:=;
while x> do
begin
t:=x mod ;
if t>max then max:=t;
if (t<min) and (t<>) then min:=t;
x:=x div ;
end;
end; procedure process;
var i:longint;
begin
for i:= to do f[i]:=true;
for i:= to do
begin
solve(i);
f[i]:=not (f[i-max] and f[i-min]);
end;
end; begin
assign(input,'mr443.in4');reset(input);
assign(output,'mr443.ou4');rewrite(output);
fillchar(f,sizeof(f),false);
process;
readln(n);
for i:= to n do
begin
readln(t);
if f[t]=true then writeln('YES') else writeln('NO');
end;
close(input);close(output);
end.
Anna取数
mr444 筷子 有点逗的题目,我都想到排序了怎么会没想到动归呢!话说看到什么差的平方和最小脑子偏到逆序对去了- =
program mr444;
var n,k,i,j:integer;
f:array[..,..] of integer;
ll:array[..] of integer;
function min(x,y:integer):integer;
begin
if x<y then exit(x) else exit(y);
end; procedure qsort(l,r:integer);
var mid,i,j,temp:integer;
begin
mid:=ll[(l+r) div ];
i:=l;j:=r;
repeat
while ll[i]<mid do inc(i);
while ll[j]>mid do dec(j);
if i<=j then
begin
temp:=ll[i];ll[i]:=ll[j];ll[j]:=temp;
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end; begin
assign(input,'mr444.in0');reset(input);
assign(output,'mr444.ou0');rewrite(output);
readln(n,k);
if n<*(k+) then
begin
writeln('-1');
close(input);close(output);
halt;
end;
for i:= to n do
read(ll[i]);
qsort(,n);
k:=k+;
for i:= to n do
for j:= to min(i div ,k) do
begin
f[i,j]:=f[i-,j-]+sqr(ll[i]-ll[i-]);
if (j*<=i-) and (f[i,j]>f[i-,j]) then
f[i,j]:=f[i-,j];
end;
writeln(f[n,k]);
close(input);close(output);
end.
筷子
mr445 饲料槽 这个倒是被我一眼看出动归了,手推了一下还是一维的!话说后来翻了翻貌似在usaco精选里也有这个?我是按区间右端排序的,上课讲的是从后往前推的,其实没太大差别。
program mr445;
var f:array[..] of longint;
ql,qr:array[..] of longint;
b,n,i,t:longint;
procedure qsort(l,r:integer);
var mid,i,j,temp:longint;
begin
i:=l;j:=r;mid:=qr[(i+j) div ];
repeat
while qr[i]<mid do inc(i);
while qr[j]>mid do dec(j);
if i<=j then
begin
temp:=qr[i];qr[i]:=qr[j];qr[j]:=temp;
temp:=ql[i];ql[i]:=ql[j];ql[j]:=temp;
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end; begin
assign(input,'mr445.in5');reset(input);
assign(output,'mr445.ou5');rewrite(output);
fillchar(f,sizeof(f),$);
f[]:=;
readln(b);
n:=;
for i:= to b do
begin
readln(ql[i],qr[i]);
if qr[i]>n then n:=qr[i];
end;
qsort(,b);
t:=;
for i:= to n do
begin
f[i]:=f[i-];
while qr[t]=i do
begin
if f[ql[t]-]+i-ql[t]+>f[i] then
f[i]:=f[ql[t]-]+i-ql[t]+;
inc(t);
end;
end;
writeln(f[n]);
close(input);close(output);
end.
饲料槽
[Weekly] 2014.03.01-2014.03.08的更多相关文章
- JavaScript基础系列目录(2014.06.01~2014.06.08)
下列文章,转载请亲注明链接出处,谢谢! 链接地址: http://www.cnblogs.com/ttcc/tag/JavaScript%20%E5%9F%BA%E7%A1%80%E7%9F%A5%E ...
- Cheatsheet: 2018 03.01 ~ 2018 03.31
Docker A Developer's Guide to Docker: A Gentle Introduction The Advantages of Using Kubernetes and D ...
- [MVC学习日记]2014/12/01 初步认识MVC模型。
2014/12/011.初步认识MVC模型.MVC模式是一种表现模式.它将web应用程序分成三个部分,模型(Model).视图(View).控制器(Controller).Model:是实现业务逻辑层 ...
- Wed Nov 01 13:03:16 CST 2017 WARN: Establishing SSL connection without server's identity verification is not recommended.
报错:Wed Nov 01 13:03:16 CST 2017 WARN: Establishing SSL connection without server's identity verifica ...
- 023 01 Android 零基础入门 01 Java基础语法 03 Java运算符 03 算术运算符之——自增自减运算符
023 01 Android 零基础入门 01 Java基础语法 03 Java运算符 03 算术运算符之--自增自减运算符 本文知识点:Java算术运算符中的自增自减运算符 自增自减运算符 之前我们 ...
- Cheatsheet: 2014 03.01 ~ 03.31
.NET Should I be concerned about PDB files? async and await -Simplified-Internals Web Performance tr ...
- SAP-MM:收货转储时提示 M7053“只能在公司代码 **** 的期间 2014/04 和 2014/03 中记账”
错误信息 消息号M7053 解决方法 Step 1.使用MMPV进入"关闭账期"界面. Step 2.输入"公司代码"."期间".& ...
- Java知识系统回顾整理01基础03变量08表达式
一.以 ; 结尾的一段代码,即为一个表达式 表达式是由变量.操作符以及方法调用所构成的结构.如下所示: int i = 5; System.out.println(5); 都是表达式 public c ...
- Cheatsheet: 2015 03.01 ~ 03.31
Web The Architecture of Algolia's Distributed Search Network No promises: asynchronous JavaScript wi ...
- 《Genesis-3D开源游戏引擎-FQA常见问题解答》2014年01月10号版本
1.Genesis-3D开源游戏引擎主要面向哪些用户人群?有限制吗? 1.我们的引擎没有限制,只要您想了解和使用我们的引擎,就可以加入Genesis-3D的大家庭.2.我们的主要用户群是各个相关的企业 ...
随机推荐
- Firefox刷新页面和复选框的奇葩问题
Firefox刷新页面后数据还在,估计很多人都碰到过. 但是有一个奇怪的地方就是复选框,如果你默认是勾选了,然后访问者取消勾选,刷新完之后,还是没有勾选,这是为什么? Firefox奇葩的地方就在于c ...
- Openstack的keystone的user-role-list命令的使用
直接在shell模式下执行 [root@node-5 ~]# keystone user-role-list WARNING: Bypassing authentication using a tok ...
- 构建高性能的ASP.NET应用程序
看见大标题的时候,也许各位看官会自然而然的联想到如何在设计阶段考虑系统性能问题,如何编写高性能的程序代码.关于这一点,大家可以在MSDN和相关网站上找到非常多的介绍,不过大多是防患于未难,提供的是在设 ...
- 关于</div>的粗浅理解
</div>作为c#中常用的一个标签,在写多个区域的内容时有着十分重要的作用.如果写简单的网页时不用div可能感受不到太大的影响,但是在写较为复杂的程序时div的分隔作用就很明显了,改动大 ...
- 关于jstl标签引入的问题
1.源码: <%@ taglib prefix="c" uri="http://java.sun.com/jsp/jstl/core" %> < ...
- 关于ajax伪实时动态下拉显示最新数据
var list= data.data.list; //list是ajax返回的数组Array].Id).length>) { return false; } //$("#learnL ...
- if 语句运用
运用if语句完成对年.月.日的判断. Console.WriteLine("其输入年份:"); int a = int.Parse(Console.ReadLine()); Con ...
- selenium操作滚动条方法
/*** 滚动条滚到最下方,和滚到指定位置*/@Test(priority =1 ) public void scrollingToBottomo(){ //使用JavaScri ...
- Python3基础 not in列表名 判断一个元素是否不在列表中列表中
镇场诗:---大梦谁觉,水月中建博客.百千磨难,才知世事无常.---今持佛语,技术无量愿学.愿尽所学,铸一良心博客.------------------------------------------ ...
- jquery之remove(),detach()方法详解
一:remove()方法 remove()函数用于从文档中移除匹配的元素. 你还可以使用选择器进一步缩小移除的范围,只移除当前匹配元素中符合指定选择器的部分元素. 与detach()相比,remove ...