记录编号	214095	评测结果	AAAAAAAAAA
题目名称	买票	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	0.559 s
提交时间	2015-12-14 13:41:27	内存使用	7.01 MiB

program zht;
var
n,m,i,j,t,l,s,ss:longint;
a,c:array[0..1000000] of longint;
begin
assign(input,'tickets.in');
assign(output,'tickets.out');
reset(input);
rewrite(output);

readln(n,m);

for i:=1 to n do
read(a[i]);




for i:=1 to n do
begin
t:=i and (-i);
 for j:=i-t+1 to i do
 c[i]:=c[i]+a[j];
end;

l:=1;

for i:=1 to n do
 begin

  if i+l>n then break;

  while 1<2 do
         begin
  if l=n then begin writeln(l); exit; end;
  s:=0;
  ss:=0;

  t:=i-1;

   while t>0 do
   begin
   s:=s+c[t];
   t:=t-(t and (-t));
   end;

   t:=i+l;

   while t>0 do
    begin
    ss:=ss+c[t];
    t:=t-(t and (-t));
    end;

  s:=ss-s;
  //writeln(l,' ',i,' ',s);
  if s<m then inc(l);
  if s=m then begin inc(l); break; end;
  if s>m then break;

             end;
 end;
writeln(l);
end.