模拟/usaco 1.2.1 Milking Cows

题意

　　给出n个工作时间段 问连续最大空闲时间段和连续最大工作时间段分别是多少

分析

　　按照每个时间段的起始排序，记录一下当前的s和t，如果按照循环，下一个时间段在当前t的后面，则更新空闲时间段和s,t

      如果下一个时间段的起始在t之前，则更新t和工作时间段

      第一次WA，没看明白题就写了，第二次WA，尼玛的快排写错了，第三次才AC

Accepted Code

 1 {

 2 ID: jessiel2

 3 PROG: milk2

 4 LANG: PASCAL

 5 }

 6 Program milk2;

 7 Const

 8   Infile = 'milk2.in';

 9   Outfile = 'milk2.out';

10 Var

11   a,b:Array[0..5001]Of Longint;

12   s,t,i,no,yes,n:Longint;

13 Function max(a,b:Longint):Longint;

14 Begin

15   If a>b Then Exit(a) Else Exit(b);

16 End;

17 Procedure qsort(l,r:Longint);

18 Var

19   i,j,mid,t:Longint;

20 Begin

21   i:=l;j:=r;mid:=a[(l+r) Div 2];

22   Repeat

23     While a[i]<mid Do Inc(i);

24     While a[j]>mid Do Dec(j);

25     If i<=j Then Begin

26       t:=a[i];a[i]:=a[j];a[j]:=t;

27       t:=b[i];b[i]:=b[j];b[j]:=t;

28       Inc(i);Dec(j);

29     End;

30   Until i>j;

31   If i<r Then qsort(i,r);

32   If l<j Then qsort(l,j);

33 End;

34 Begin

35   Assign(input,infile);Reset(input);

36   Assign(output,outfile);Rewrite(output);

37   ReadLn(n);

38   For i:=1 To n Do Begin

39     ReadLn(a[i],b[i]);

40   End;

41   qsort(1,n);

42   no:=0;yes:=b[1]-a[1];

43   s:=a[1];

44   t:=b[1];

45   For i:=2 To n Do Begin

46     If a[i]<=t Then Begin

47       If b[i]>t Then t:=b[i];

48       yes:=max(yes,t-s);

49     End Else Begin

50       no:=max(no,a[i]-t);

51       s:=a[i];t:=b[i];

52     End;

53   End;

54   WriteLn(yes,' ',no);

55   CLose(input);Close(output);

56 End.