Window_纪中_1326_单调队列

最新推荐文章于 2022-01-19 21:24:18 发布

weixin_30387423

最新推荐文章于 2022-01-19 21:24:18 发布

阅读量78

点赞数

原文链接：http://www.cnblogs.com/a-loud-name/p/6184781.html

版权

题目大意

给你一个度为N的数组，一个长为K的滑动的窗体从最左移至最右端，你只能见到窗口的K个数，每次窗体向右移动一位，如下表：
你的任务是找出窗口在各位置时的max value,min value.

分析

水法见——水法

还可以用单调队列。

单调队列见——单调队列

但是都要卡时间，pascal的问题

代码

var
  a:array[0..1000001] of longint;
  d,v:array[0..1000001] of longint;
  head,tail:longint;
  i,j,k:longint;
  n,m:longint;

begin
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  head:=1;
  tail:=1;
  d[1]:=a[1];
  v[1]:=1;
  for i:=2 to m do
    begin
      while (d[tail]>a[i]) and (head<=tail) do
        tail:=tail-1;
      tail:=tail+1;
      d[tail]:=a[i];
      v[tail]:=i;
    end;
  write(d[1],' ');
  for i:=m+1 to n do
    begin
      while (v[head]<=i-m) and (head<=tail) do
        head:=head+1;
      if tail<head then tail:=head;
      while (d[tail]>a[i]) and (head<=tail) do
        tail:=tail-1;
      tail:=tail+1;
      d[tail]:=a[i];
      v[tail]:=i;
      write(d[head],' ');
    end;
  writeln;
  fillchar(d,sizeof(d),0);
  fillchar(v,sizeof(v),0);
  head:=1;
  tail:=1;
  d[1]:=a[1];
  v[1]:=1;
  for i:=2 to m do
    begin
      while (d[tail]<a[i]) and (head<=tail) do
        tail:=tail-1;
      tail:=tail+1;
      d[tail]:=a[i];
      v[tail]:=i;
    end;
  write(d[1],' ');
  for i:=m+1 to n do
    begin
      while (v[head]<=i-m) and (head<=tail) do
        head:=head+1;
      if tail<head then tail:=head;
      while (d[tail]<a[i]) and (head<=tail) do
        tail:=tail-1;
      tail:=tail+1;
      d[tail]:=a[i];
      v[tail]:=i;
      write(d[head],' ');
    end;
end.

转载于:https://www.cnblogs.com/a-loud-name/p/6184781.html

weixin_30387423

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Window_纪中_1326_单调队列

题目大意给你一个度为N的数组，一个长为K的滑动的窗体从最左移至最右端，你只能见到窗口的K个数，每次窗体向右移动一位，如下表：你的任务是找出窗口在各位置时的max value,min value.分析水法见——水法还可以用单调队列。单调队列见——单调队列但是都要卡时间，pascal的问...
复制链接

扫一扫