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的第二题，哈哈哈。。。