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(2)+0.00001);
    write(s+1,' ');
    n:=n-(1 << s);
  until n=0;
end.

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[0..200000]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)>>1];
  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+1;
  r:=n;
  while l<=r do
  begin
    m:=(l+r) >>1;
    if a[m]>x then l:=m+1 else r:=m-1;
  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+1)-(sum[n]-sum[i-1]));
  if need>have then exit(false) else exit(true);
end;
begin
  read(n,mx,v1,v2,have);
  for i:=1 to n do
  begin
    read(a[i]);
    b[i]:=a[i];
    c[i]:=i;
  end;
  qs(1,n);
  for i:=1 to n do
  sum[i]:=sum[i-1]+a[i];
  for i:=1 to n do
  begin
    num:=i;
    z:=mx*num-sum[num];
    if z>=have then continue;
    l:=1;
    r:=mx;
    while l<r do
    begin
      m:=(l+r+1)>>1;
      if check(m) then l:=m else r:=m-1;
    end;
    if ans<num*v1+l*v2 then
    begin
      ans:=num*v1+l*v2;
      ansnum:=num;
      ansmin:=l;
    end;
  end;
  writeln(ans);
  for i:=1 to ansnum do
  b[c[i]]:=mx;
  for i:=1 to n do
  if b[i]<ansmin then write(ansmin,' ')else write(b[i],' ');
  writeln;
end.

C

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

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

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

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