($n,$w)=glob<>;
@a=<>;
while($b<$n){
	$s+=$a[$b];
	while($s>$w || $h{$a[$b]}){
		$s-=$a[$a];
		$h{$a[$a]}=0;
		$a++;
	}
	$h{$a[$b]}=1;
	++$b;
	$z=$b-$a if $z<$b-$a;
}
print$z+0;