Citric I 模拟赛心得

weixin_30421809

于 2012-08-21 15:14:00 发布

阅读量60

点赞数

原文链接：http://www.cnblogs.com/lijianlin1995/archive/2012/08/21/2649135.html

版权

柠檬超市

　　显然是要坑精度，所以不能存实数，把性价比的分子跟分母存下来，比较大小的时候移项即可。

Code
var ans,n,s,i:longint;
    w,c,a,b:qword;
begin
readln(n,s);a:=0;b:=1;ans:=0;
for i:=1 to n do
  begin
  readln(w,c);
  if(c<=s)and(w*b>c*a)
    then begin
         a:=w;
         b:=c;
         ans:=i;
         end;
  end;
writeln(ans);
end.

柠檬的坦克游戏

　　第一反应先按照题目描述把暴力写了，写完暴力发现我理解题意了，然后进行了接近1个小时的思考（想了很多矬贪心）。我发现可以分别按D和R升序排序搞出两个序列，比某个元素优的元素是两个序列后缀（到该元素位置）交集的规模，那这个数字+1就是组数。发现这个玩意前缀和搞不了，N太大boolean集合+位运算或者boolean数组搞不了，线段树或者树状数组我想不到怎么用（据说有A掉的）。然后我看样例（样例很良心>_<）的时候突然发现如果按D降序排列，比某元素优和他是序列的前缀的一个最长下降（数据保证数字两两不同）子序列。然后无奈写了个heap加到暴力上优化，发现样例都过不了，所以意识到这这题一定是要按D排列，然后突然想起了lis，大喜，似乎按D降序排列以后按R搞最长不降子序列长度就是比他优的元素个数。然后又想了想，举了个反例发现了以上想法全部有一个大bug，如果在某元素前有多个元素R比他大然后构成一个单调上升的，那这些元素只会让长度大一，突然发现这些元素一定在一个组里，一旦下降，D也小，R也小就在下一个组里了。也就是说一个组内D减小的同时R单调上升。分到元素i时，分组的数目是原序列到i的前缀的下降序列的个数，想起Dilworth定理：最小下降序列划分=最长不降子序列（Orz wwwaaannngggrs大牛，他提高二讲过）。于是题目成功转化成LIS模型。

Code
uses math;
const maxn=100000;
var  D,B,num,fz,f,g:array[1..maxn] of longint;
     mid,l,r,ans,j,n,i,len:longint;
procedure swap(var a,b:longint);
var t:longint;begin t:=a;a:=b;b:=t;end;
procedure qsort(l,r:longint);
          var i,j:longint;
              mid:longint;
          begin
          i:=l;j:=r;mid:=D[(l+r)shr 1];
          repeat
            while(i<r)and(D[i]>mid)do inc(i);
            while(j>l)and(D[j]<mid)do dec(j);
            if i<=j then begin
                         swap(D[i],D[j]);
                         swap(B[i],B[j]);
                         swap(num[i],num[j]);
                         inc(i);dec(j);
                         end;
          until i>j;
          if(i<r)then qsort(i,r);
          if(j>l)then qsort(l,j);
          end;
begin
readln(n);len:=0;
for i:=1 to n do
  begin
  readln(D[i],B[i]);
  num[i]:=i;
  end;
qsort(1,n);
for i:=1 to n do
  begin
  l:=1;r:=len;ans:=0;
  while l<=r do begin
    mid:=l+(r-l+1)shr 1;
    if G[mid]>B[i]
      then begin
           l:=mid+1;
           ans:=mid;
           end
      else r:=mid-1;
    end;
  f[i]:=ans+1;fz[num[i]]:=f[i];
  len:=max(f[i],len);
  if B[i]>G[f[i]]then G[f[i]]:=B[i];
  end;
for i:=1 to n do
  writeln(fz[i]);
end.