baidu了一下bzoj水题列表。。。找到这道题。

  题目大意：给定一个数t，在给定的一段包含1-n的序列中找出多少个长度为奇数子序列的中位数为t。

第一眼没看数据范围，于是开心的打了一个O（n^3）的循环，TLE....

  想了想，子序列中必须包含t，所以子序列中其他数的个数必定为偶数，所以子序列中有t以及n个大于t的数和n个小于t的数（n为偶数）；

  因为是1-n的排列，所以也不会出现多个t的情况。。

  于是发现了一个很神奇的思路，对于序列里任何一个数，把小于t的数定义为-1，等于t的数定义为0，大于t的数定义为1，所以只要求出有多少长度为奇数的子序列和为零。。

  于是开心地写了一波前缀和，样例一直没过，后来发现sum【0】没算进去，于是直接在sum【1】塞了一个0，其他往后面一位移。。

  然而枚举的时候脑子有病打了个二重循环，继续TLE....

  后来不知道怎么搞，走了一圈回来突然发现可以用桶排的思想，找出t在序列中的位置k，枚举1-k-1，用一个数组a记录sum数组1-k-1中出现的次数且位置为奇数，数组b记录sum数组1-k-1中出现的次数且位置为偶数，然后再一重循环j枚举k-n，

  看j为偶数和a【sum【j】】是否为大于零，如果是加到ans里面，当j为奇数和b【sum【j】】是否大于零，如果是加到ans里面。。  （tips：奇-偶=奇，偶-奇=奇，所以要分成两个情况处理，使序列长度为奇数）；

  于是又开心的交了一波 。。 Wrong Answer。。。

  于是一直卡Wrong Answer。。。

  第二天才发现数据范围100000然而我看错开的是10000，内心崩溃。。。 改了一下交上去就A了。。。

  下面是代码，其实只有十几行：

 var
   n,x,t,i,j,k,ans:longint;
   sum,a,b:..]，注意开到-
 begin
   readln(n,t);
   sum[]:=;  //前缀和数组强行塞0；
   inc(N); //sum数组有n+个数据，为了方便循环直接把n+
    to n do begin
     read(x);  //读入
     if x=t then k:=i;  //找出中位数在序列中的位置

     ;
     sum[i]:=sum[i-]+x;  //前缀和
   end;
     do  //从0枚举
     = then inc(a[sum[i]])
     else inc(b[sum[i]]);  //桶排思想
     for i:=k to n do
       = then begin
         inc(ans,b[sum[i]])
       end
       else begin
         inc(ans,a[sum[i]]);
       end;  //枚举答案
   write(ans); //输出答案
 end.

BZOJ继a+b后ac的第二题，哈哈哈。。。