jzoj1277 最高的奶牛

1277. 最高的奶牛 

Description

　　FJ有N(1 <= N <= 10,000)头奶牛，编号为1到N,站成一条直线。每头奶牛自己的身高(正整数，秘密未知)，告诉你最高奶牛的身高H及位置I，同时告诉你R(0 <= R <= 10,000)组信息，每组信息由两个数ai,bi组成,表示奶牛ai可以看到奶牛bi，这就意味着奶牛bi的身高至少和奶牛ai的身高一样高，同时奶牛ai到奶牛bi之间的奶牛身高必须低于奶牛ai
　　现在要你求出每头奶牛最高可能的高度，保证有解。


Input


　　第1行输入4个空格隔开的整数N,I,H,R
　　第2到R+1行，每行两个空格隔开的不同的整数A,B(1<=A,B<=N)，表示奶牛A能看到奶牛B


Output

　　第1到N行，每行一个整数表示每只奶牛最高可能的高度。

分析：先把所有牛设为最大值，对于每组ai和bi，如果ai，bi之间有牛比ai高就把区间[ai,bi]之间的所有牛-1。

代码

const
  maxn=10000;

var
  a,x,y:array[0..maxn] of longint;
  n,i,h,r,j,k,l:longint;

begin
  readln(n,i,h,r);
  for i:=1 to n do
    a[i]:=h;
  for i:=1 to r do
    readln(x[i],y[i]);
    for i:=1 to r do
      if x[i]<y[i] then
        begin
          for j:=x[i]+1 to y[i]-1 do
            if (a[j]>=a[x[i]]) then
              begin
                for k:=x[i]+1 to y[i]-1 do
                  dec(a[k]);
                break;
              end;
        end
      else
        begin
          for j:=x[i]-1 downto y[i]+1 do
            if (a[j]>=a[x[i]]) then
              begin
                for k:=x[i]-1 downto y[i]+1 do
                  dec(a[k]);
                break;
              end;
        end;
  for i:=1 to n do
    writeln(a[i]);
end.