SSL P2209 数数

Description

给出n个正整数，请你数出其中有多少对数的和小于等于s。

Input

第1行两个正整数n，s。
第2行n个正整数，表示给出的数。

Output

只有一个数，如题目要求所示。

Sample Input

4 6
3 5 2 1
Sample Output

4
Hint

数据范围
对于50%的数据，n<=1000;
对于100%的数据，n<=100000,给出的数以及s都小于等于1000000。

首先快排，因为排序后为从小到达（升序），所以如果a[j]+a[i]<=s,那就有(j-i)个数+a[i]<=s，根据这个规律直接暴力。
备注：比一般暴力枚举，省时省力省时间

var
  a:array [1..100000] of longint;
  i,g,n,c,j,ans:longint;

procedure qsort(l,r:longint);
  var
    i,j,key,temp:longint;
   begin
       if l>=r then exit;
       i:=l;j:=r;
       key:=a[(l+r) div 2];
        repeat
           while  (a[i]<key) do inc(i);
           while  (a[j]>key) do dec(j);
           if i<=j then
              begin
                 temp:=a[i];a[i]:=a[j];a[j]:=temp;
                 inc(i); dec(j);
              end;
         until i>j;
       if l<j then qsort(l,j);
       if i<r then qsort(i,r);
  end;

begin
     readln(n,c);
     for i:=1 to n do read(a[i]);
     qsort(1,n);
     ans:=0;
     g:=n;
         for i:=1 to n-1 do
             begin
               if a[i]>=c then break;
               if g<=i then break;
                  for j:=g downto i+1 do
                      if a[i]+a[j]<=c then
                         begin
                              ans:=ans+(j-i);
                              g:=j;
                              break;
                         end;
             end;
     writeln(ans);
end.