mama

树剖加堆，送分题啊，考场上没写出来

忘了删除调试的东西。。。。。

还有两个减号在一起的 = =

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++能过？

开个数组存以2为底的对数，过了。。

DP超时3个点。。果然不该作死调一堆没必要的对数运算

对于每一次到达站点的时候都进行决策:
寻找距离当前站最近的比当前站便宜的站点　　
如果找到了，油量够就直接开过去，油量不够就冲到刚好可以开过去
如果找不到，就到前面找一个充满油量能到得了的最便宜的站点，充满油开过去。
如果加满油找不到任何站点，那就输出No Solution

最小费用最大流

CIR Dinic

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.

还以为这题有啥规律呢。。。。

连跪12次......
好歹上榜了......

自从有了priorrity_queue，再也不用写堆了

我废了，，，就这水题我交了三遍！！！

回复 @liu_runda :
达哥你厉害

用的所谓ST(RMQ)算法,我去!4.989 s 194.90 MB!
用单调队列:1.064 s 8.37 MB...
是因为查询次数少,还是我垃圾...

回复 @魔术羊 :
我不会判环啊QAQ ！！！改了之后就过了一个点！

这是一星题...
我真傻,真的.

看到Claris的线段树合并std被卡了5分hhhh