1635: [Usaco2007 Jan]Tallest Cow 最高的牛

1635: [Usaco2007 Jan]Tallest Cow 最高的牛

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 383  Solved: 211
[Submit][Status]

Description

FJ's N (1 <= N <= 10,000) cows conveniently indexed 1..N are standing in a line. Each cow has a positive integer height (which is a bit of secret). You are told only the height H (1 <= H <= 1,000,000) of the tallest cow along with the index I of that cow. FJ has made a list of R (0 <= R <= 10,000) lines of the form "cow 17 sees cow 34". This means that cow 34 is at least as tall as cow 17, and that every cow between 17 and 34 has a height that is strictly smaller than that of cow 17. For each cow from 1..N, determine its maximum possible height, such that all of the information given is still correct. It is guaranteed that it is possible to satisfy all the constraints.

有n(1 <= n <= 10000)头牛从１到n线性排列，每头牛的高度为h[i](1 <= i <= n),现在告诉你这里面的牛的最大高度为maxH,而且有r组关系，每组关系输入两个数字，假设为a和b,表示第a头牛能看到第b头牛，能看到的条件是a, b之间的其它牛的高度都严格小于min(h[a], h[b]),而h[b] >= h[a]

Input

* Line 1: Four space-separated integers: N, I, H and R

* Lines 2..R+1: Two distinct space-separated integers A and B (1 <= A, B <= N), indicating that cow A can see cow B.

Output

* Lines 1..N: Line i contains the maximum possible height of cow i.

Sample Input

9 3 5 5
1 3
5 3
4 3
3 7
9 8

INPUT DETAILS:

There are 9 cows, and the 3rd is the tallest with height 5.

Sample Output

5
4
5
3
4
4
5
5
5

HINT

 

Source

Silver

题解：好吧我承认我真心捉鸡（phile：又逗比了？ HansBug：才没哪，讨厌啦）——我以前一直在用一种数组，这个数组的前缀和实际上表示的才是需要的值，这个东西在写树状数组时频频用到，直到今天我才知道这个是差分序列（QAQ）。。。然后这个没啥啦。。。直接代码——

 var
    i,j,k,l,m,n,h,r:longint;
    a:array[..,..] of longint;
    b:array[..] of longint;
 procedure swap(var x,y:longint);
           var z:longint;
           begin
                z:=x;x:=y;y:=z;
           end;

 procedure sort(l,r,z:longint);
           var i,j,x,y:longint;
           begin
                i:=l;j:=r;x:=a[(l+r) div ,z];
                repeat
                      while a[i,z]<x do inc(i);
                      while a[j,z]>x do dec(j);
                      if i<=j then
                         begin
                              swap(a[i,],a[j,]);
                              swap(a[i,],a[j,]);
                              inc(i);dec(j);
                         end;
                until i>j;
                if l<j then sort(l,j,z);
                if i<r then sort(i,r,z);
           end;
 begin
      readln(n,i,h,r);
      for i:= to r do
          begin
               readln(a[i,],a[i,]);
               if a[i,]>a[i,] then swap(a[i,],a[i,]);
          end;
      sort(,r,);
      j:=;
      for i:= to r+ do
          begin
               if a[i,]<>a[j,] then
                  begin
                       sort(j,i-,);
                       j:=i;
                  end;
          end;
      for i:= to r do
          begin
               if (a[i,]=a[i-,]) and (a[i,]=a[i-,]) then continue;
               inc(b[a[i,]+]);dec(b[a[i,]]);
          end;
      l:=;
      for i:= to n do
          begin
               l:=l+b[i];
               writeln(-l+h);
          end;
 end.