Contest-hunter 暑假送温暖 SRM01

一直找不到好的题去做...于是想到了srm...回来补题...QAQ

从srm01补起

A

题意：n个数，排成一列，刚开始都是1，如果左右相等就可以合并，问最后的数列长什么样。

思路：比赛的时候直接敲了个 一直log2 直到为0，觉得应该是100的...于是炸到了90.

比完赛懒得调就没去理，回来补的时候发现是p的trunc有点问题哇...以后都打成trunc(x+0.000001) 出错率会低一点QAQ

 var n,s:longint;
 begin
   read(n);
   repeat
     s:=trunc(ln(n)/ln()+0.00001);
     write(s+,' ');
     n:=n-( << s);
   until n=;
 end.

A

B

题意：有m升油，n个数，可以用一升油数某一个数+1，再给一个mx 然后给 v1 v2 求 （v1*达到mx的数的个数+v2*整个数列的最小值）最大化。

思路：比赛的时候想的是拿部分分，然后弄不出来，然后觉得是二分，敲不出来，就拿到了10分。

补题的时候有一个新的思路，枚举达到mx的数的个数，然后再二分最小值。

然后check就贪心的弄，设达到mx的数的个数为num，二分到的最小值为x

然后贪心算需要的油就可以check了，但是这样要多一个n的复杂度。

显然o(n^2 logn)的复杂度是要tle的。

想想优化，由于贪心，所以已经先把原数列排序了，辣么就满足的单调性。

满足单调性就可以二分

所以求排序后的数列的前缀和，然后在二分里在套一个二分就好了

复杂度 o(n logn ^2)

 var a,b,c,sum:array[..]of int64;
     n,mx,v1,v2:int64;
     have,z:int64;
     l,r,m:longint;
     ans,num,ansmin,ansnum:int64;
     i,j:longint;
 procedure qs(l,r:longint);
 var i,j,t,m:longint;
 begin
   i:=l;
   j:=r;
   m:=a[(l+r)>>];
   repeat
     while a[i]>m do inc(i);
     while a[j]<m do dec(j);
     if i<=j then
     begin
       t:=a[i];a[i]:=a[j];a[j]:=t;
       t:=c[i];c[i]:=c[j];c[j]:=t;
       inc(i);
       dec(j);
     end;
   until i>j;
   if l<j then qs(l,j);
   if i<r then qs(i,r);
 end;
 function find(x:longint):longint;
 var l,r,m:longint;
 begin
   l:=num+;
   r:=n;
   while l<=r do
   begin
     m:=(l+r) >>;
     if a[m]>x then l:=m+ else r:=m-;
   end;
   exit(l);
 end;
 function check(x:longint):boolean;
 var i:longint;
     need:int64;
 begin
   need:=z;
   i:=find(x);
   inc(need,x*(n-i+)-(sum[n]-sum[i-]));
   if need>have then exit(false) else exit(true);
 end;
 begin
   read(n,mx,v1,v2,have);
   for i:= to n do
   begin
     read(a[i]);
     b[i]:=a[i];
     c[i]:=i;
   end;
   qs(,n);
   for i:= to n do
   sum[i]:=sum[i-]+a[i];
   for i:= to n do
   begin
     num:=i;
     z:=mx*num-sum[num];
     if z>=have then continue;
     l:=;
     r:=mx;
     while l<r do
     begin
       m:=(l+r+)>>;
       if check(m) then l:=m else r:=m-;
     end;
     if ans<num*v1+l*v2 then
     begin
       ans:=num*v1+l*v2;
       ansnum:=num;
       ansmin:=l;
     end;
   end;
   writeln(ans);
   for i:= to ansnum do
   b[c[i]]:=mx;
   for i:= to n do
   if b[i]<ansmin then write(ansmin,' ')else write(b[i],' ');
   writeln;
 end.

B

C

题意：一个数列，支持两个操作，1.L~R 加上x   2.查询当前序列，如果从任意一个位置开始，两边严格递减的最大长度。

思路：比赛的时候完全没思路，暴力都不会打。

补题觉得可以线段树弄，每次维护区间最大长度，左边的值，右边的值，然后乱维护....QAQ

结果不会打。所以pass掉吧...