CQOI2009中位数图

原来在vijos上做过，当时根本看不懂

现在看起来这么水……

x记录从b向左连续走比k大的有多少个

y记录从b向右连续走比k大的有多少个

最后根据乘法原理乘一下 

不过要加上x[0]+y[0]+1

因为实际上满足条件的序列有四种情况：

一、只选b，即为1

二、只在b左边选，即为x[0]

三、只在b右边选，即为y[0]

四、在两边都选，即为x[i]*y[-i]

Q.E.D

代码：

var i,n,k,tmp:longint;
    sum,ans:int64;
    x,y:array[-100000..100000] of longint;
    a:array[0..100000] of longint;
procedure init;
 begin
   readln(n,tmp);
   for i:=1 to n do
    begin
      read(a[i]);
      if a[i]=tmp then k:=i;
    end;
 end;
procedure main;
 begin
   fillchar(x,sizeof(x),0);
   fillchar(y,sizeof(y),0);
   for i:=k-1 downto 1 do
     if a[i]>tmp then a[i]:=1 else a[i]:=-1;
   sum:=0;
   for i:=k-1 downto 1 do
     begin
     sum:=sum+a[i];
     inc(x[sum]);
     end;
   for i:=k+1 to n do
     if a[i]>tmp then a[i]:=1 else a[i]:=-1;
   sum:=0;
   for i:=k+1 to n do
     begin
     sum:=sum+a[i];
     inc(y[sum]);
     end;
   ans:=0;
   for i:=-n to n do inc(ans,x[i]*y[-i]);
   inc(ans,x[0]);inc(ans,y[0]);
   writeln(ans+1);
 end;
begin
  init;
  main;
end.