tyvj1038忠诚题解

本题属于ST

我用的方法是倍增

令f]i,j]表示i~i+2^j-1中的最小值

f[i,0]:=a[i];//注意：这里可以直接read(f[i,0]);防止超时

循环算出f[i,j]的时候要先循环j在循环i，i在数据范围很大的时候一定要算到它最大所能算到的地方，防止超时 n-1 shl j+1

<pre>program t;
var n,m,i,j,k,x,y,ans:longint;
    f:array[0..100000,0..17]of longint;
function min(a,b:longint):longint;
begin
 if a<b then min:=a else min:=b;
end;
begin
 read(m,n);
 for i:=1 to m do
  read(f[i,0]);//优化
 k:=trunc(ln(m)/ln(2));
 for j:=1 to k do
  for i:=1 to m-(1 shl (j-1))+1 do //一定要注意这里优化
    f[i,j]:=min(f[i,j-1],f[i+(1 shl (j-1)),j-1]);
 for i:=1 to n do
  begin
   read(x,y);
   k:=trunc(ln(y-x+1)/ln(2));
   ans:=min(f[x,k],f[y-1 shl k+1,k]);//复杂的地方先赋值再输出
   write(ans,' ');
  end;
end.