Gravatar
liu_runda
积分:2887
提交:1014 / 2190
nlogn的LIS打错了一次。。竟然还有70分

Gravatar
liu_runda
积分:2887
提交:1014 / 2190
诶。。明明是求割顶我从前为啥写了个n^2的并查集。。。数据水竟然还过了

题目 8 备用交换机
2016-05-07 20:10:16
Gravatar
竹语淡墨
积分:46
提交:16 / 44
……

Gravatar
Bromidic
积分:48
提交:13 / 25
回复 @真神名曰驴蛋 :
30个点真的可以打表吗==

Gravatar
NewBee
积分:1849
提交:671 / 1665

Gravatar
GaoErFu
积分:493
提交:289 / 1158
为什么我的代码s和t非要定义long long?

Gravatar
521
积分:1209
提交:464 / 917

Gravatar
rvalue
积分:715
提交:213 / 573
回复 @stdafx.h :
坐等神犇学长填坑

Gravatar
rvalue
积分:715
提交:213 / 573
回复 @垃圾垃圾真垃 :
打表就别想得到20分以上。。。
等以后做20个测试点。
重要!输出描述有误,应为组与组间空一格。

Gravatar
dateri
积分:1305
提交:587 / 1302
mama

Gravatar
TenderRun
积分:849
提交:201 / 529
树剖加堆,送分题啊,考场上没写出来

Gravatar
再见
积分:2248
提交:518 / 978
忘了删除调试的东西。。。。。

题目 679 修理牛棚
2016-05-06 22:18:57
Gravatar
Riolu
积分:1074
提交:435 / 772
还有两个减号在一起的 = =

Gravatar
zeppoe
积分:385
提交:147 / 405

program past;
var
a:array[1..10000]of longint;
m,n,i,all:longint;
procedure qsort(s,t:longint);
var
i,j,mid,p:longint;
begin
i:=s;
j:=t;
mid:=a[(i+j)div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
inc(i);
dec(j);
end;
until i>j;
if s<j then qsort(s,j);
if i<t then qsort(i,t);
end;
begin
assign(input,'jiahao1.in');
assign(output,'jiahao1.out');
reset(input);
rewrite(output);
all:=0;
read(m,n);
for i:=1 to n do
readln(a[i]);
qsort(1,n);
for i:=1 to n do
begin
if m>a[i] then
begin
m:=m+a[i] div 2;
inc(all);
end
else break;
end;
writeln(all);
close(input);
close(output);
end.

求大神指错。。。
为啥c++能过?

题目 1707 嘉豪 AAAAAAAAAA
2016-05-06 16:03:54
Gravatar
liu_runda
积分:2887
提交:1014 / 2190
开个数组存以2为底的对数,过了。。

题目 6 线型网络
2016-05-06 14:02:01
Gravatar
liu_runda
积分:2887
提交:1014 / 2190
DP超时3个点。。果然不该作死调一堆没必要的对数运算

题目 6 线型网络
2016-05-06 12:27:53
Gravatar
Sky_miner
积分:2788
提交:902 / 1646
对于每一次到达站点的时候都进行决策:
寻找距离当前站最近的比当前站便宜的站点  
如果找到了,油量够就直接开过去,油量不够就冲到刚好可以开过去
如果找不到,就到前面找一个充满油量能到得了的最便宜的站点,充满油开过去。
如果加满油找不到任何站点,那就输出No Solution

Gravatar
粘粘自喜
积分:475
提交:155 / 375
最小费用最大流

Gravatar
粘粘自喜
积分:475
提交:155 / 375
CIR Dinic

Gravatar
archangel.
积分:15
提交:9 / 35
program poker;
var n,k,m,t,av,st:longint;
a,b:array[0..101] of longint;
begin
assign(input,'jfzp.in'); assign(output,'jfzp.out'); reset(input); rewrite(output);
readln(n); t:=0; st:=0;
for k:=1 to n do begin
read(a[k]); t:=t+a[k]; end;
readln;
av:=trunc(t/n);
for k:=1 to n do
b[k]:=a[k]-av;
for k:=1 to n do
if (b[k]<>0) then begin
st:=st+1;
b[k+1]:=b[k+1]+b[k]; end;
writeln(st);
close(input); close(output);
end.

题目 98 [NOIP 2002]均分纸牌
2016-05-05 18:13:41