原来在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[-..] of longint;
a:array[..] of longint;
procedure init;
begin
readln(n,tmp);
for i:= to n do
begin
read(a[i]);
if a[i]=tmp then k:=i;
end;
end;
procedure main;
begin
fillchar(x,sizeof(x),);
fillchar(y,sizeof(y),);
for i:=k- downto do
if a[i]>tmp then a[i]:= else a[i]:=-;
sum:=;
for i:=k- downto do
begin
sum:=sum+a[i];
inc(x[sum]);
end;
for i:=k+ to n do
if a[i]>tmp then a[i]:= else a[i]:=-;
sum:=;
for i:=k+ to n do
begin
sum:=sum+a[i];
inc(y[sum]);
end;
ans:=;
for i:=-n to n do inc(ans,x[i]*y[-i]);
inc(ans,x[]);inc(ans,y[]);
writeln(ans+);
end;
begin
init;
main;
end.