poj3061 Subsequence（尺取）

Description

A sequence of N positive integers (10 < N < 100 000), each of them less than or equal 10000, and a positive integer S (S < 100 000 000) are given. Write a program to find the minimal length of the subsequence of consecutive elements of the sequence, the sum of which is greater than or equal to S.

Input

The first line is the number of test cases. For each test case the program has to read the numbers N and S, separated by an interval, from the first line. The numbers of the sequence are given in the second line of the test case, separated by intervals. The input will finish with the end of file.

Output

For each the case the program has to print the result on separate line of the output file.if no answer, print 0.

Sample Input

2
10 15
5 1 3 5 10 7 4 9 2 8
5 11
1 2 3 4 5

Sample Output

2
3

Source

Southeastern Europe 2006

 

 

题目大意：

尺取。练练手。

program rrr(input,output);
var
  a:array[..]of longint;
  t,n,s,i,j,k,sum,ans:longint;
function min(a,b:longint):longint;
begin
   if a<b then exit(a) else exit(b);
end;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(t);
   for k:= to t do
      begin
         readln(n,s);
         for i:= to n do read(a[i]);
         j:=;sum:=;ans:=n+;
         for i:= to n do
            begin
               while (j<n) and (sum<s) do begin inc(j);sum:=sum+a[j]; end;
               if sum<s then break;
               ans:=min(ans,j-i+);
               sum:=sum-a[i];
            end;
         if ans>n then writeln() else writeln(ans);
      end;
   close(input);close(output);
end.