sliding windows (poj 2823) 题解

【问题描述】

给你一个长度为N的数组，一个长为K的滑动的窗体从最左移至最右端，你只能见到窗口的K个数，每次窗体向右移动一位，如下表：

 

 

【样例输入】

     8 3

    1 3 -1 -3 5 3 6 7

【样例输出】

   -1 -3 -3 -3 3 3

   3 3 5 5 6 7

【解题思路】

     首先，不难想到用枚举的办法，对于每一个区间，枚举其中的最大值和最小值，但对于n<=1000000的数据来说，枚举必定超时，因此我们可以用到队列来进行优化。

     我们取前k个数中的最大值和最小值，放入两个队列中，设放最大值的为k，放最小值的为q，对于之后的每一个数如果比k中的队尾元素大，那么k的队尾元素便可删去（因为可以证明，在之后的任何一个区间内都用不上该元素），若比队尾元素小，便入队。q队列则是反操作。于是，对于每一个区间的最小值和最大值，我们只需要记录q和k队列中的队首元素即可。由于输出的要求我在这用了两个过程，先求最小值，然后求最大值。详见代码。

【代码实现】

var q,a:array[1..1000000] of longint;
    n,k,i,j:longint;
procedure work;
var i,f,r:longint;
begin
 f:=1;
 r:=1;
 q[f]:=1;
 for i:=2 to k do
  begin
   while (f<=r)and(a[q[r]]>=a[i]) do
    dec(r);
   inc(r);
   q[r]:=i;
  end;//初始化q队列
 write(a[q[f]],' ');
 for i:=2 to n-k+1 do
  begin
   if q[f]<i then
    inc(f);
   while (f<=r)and(a[q[r]]>=a[i+k-1]) do//若当前元素比队尾元素小，删除队尾元素
    dec(r);
   inc(r);
   q[r]:=i+k-1;
   write(a[q[f]],' ');
  end;
end;
procedure work1;
var i,f,r:longint;
begin
 f:=1;
 r:=1;
 q[f]:=1;
 for i:=2 to k do
  begin
   while(f<=r)and(a[q[r]]<=a[i]) do
    dec(r);
   inc(r);
   q[r]:=i;
  end;
 write(a[q[f]],' ');//初始化k队列
 for i:=2 to n-k+1 do
  begin
   if q[f]<i then
    inc(f);
   while (f<=r)and(a[q[r]]<=a[i+k-1]) do//若当前数比队尾元素大，删除队尾元素
    dec(r);
   inc(r);
   q[r]:=i+k-1;
   write(a[q[f]],' ');
  end;
end;
begin
 readln(n,k);
 for i:=1 to n do
  read(a[i]);
 work;
 fillchar(q,sizeof(q),0);
 writeln;
 work1;
 writeln;
end.