bzoj 2348 二分

题意:n个数，有多少个数对满足：a[i]<=a[j] 且 a[i]<=a[j]*0.9 （每对i、j只记一次）

无脑暴力O（n^2）还有50分也是醉了

先从小到大排序解决第一个限制条件，然后对于排序后的第i个数，在[i，n]的位置中找到最大的满足条件的a[j]，如果有多个相等的a[j]找到它最后一个位置，这个就用二分查找...然后ans+=pos-i

对于0.9的处理两边都乘10就行了 （mdzz我还在纠结上取整和下取整），果然是蒟蒻

var
        n,l,r,mid,t     :longint;
        ans             :int64;
        i               :longint;
        a               :array[0..100010] of longint;
procedure sort(l,r:longint);
var
        i,j:longint;
        x,y:longint;
begin
   i:=l; j:=r; x:=a[(l+r)>>1];
   while (i<=j) do
   begin
      while (a[i]<x) do inc(i);
      while (a[j]>x) do dec(j);
      if (i<=j) then
      begin
         y:=a[i]; a[i]:=a[j]; a[j]:=y;
         inc(i); dec(j);
      end;
   end;
   if i<r then sort(i,r);
   if j>l then sort(l,j);
end;

begin
   read(n);
   for i:=1 to n do read(a[i]);
   sort(1,n);
   for i:=1 to n do
   begin
      l:=i; r:=n; t:=i;
      while (l<=r) do
      begin
         mid:=(l+r)>>1;
         if (a[i]*10>=a[mid]*9) then
         begin
            l:=mid+1;
            t:=mid;
         end else r:=mid-1;
      end;
      inc(ans,int64(t-i));
   end;
   writeln(ans);
end.

——by Eirlys