10007:[2013.10.25]P1.滚土豆(potato.pas/c/cpp)

http://dyssldezx.openjudge.cn/fornoip2013/10007/

描述

MM老师看到大家练习信息学奥赛都很辛苦，由于开发出一款植物大战僵尸游戏，让大家放松一下，植物大战僵尸这款游戏中，有很多mini game，其中滚土豆十分有意思。从棋盘右侧不断出现僵尸向左走，玩家需要从左侧摆放土豆来消灭他们。

我们可以认为棋盘是一个6行，60列的矩阵。僵尸出现的那一秒会站在所在行的最右侧（即第60列），之后每1秒向左移动1步。玩家可以随时在屏幕最左端摆放土豆，这时这一行的僵尸全部被滚过去的土豆瞬间消灭。如果僵尸走到第1列没有被消灭，而再向左走，则游戏宣告失败。

现在有n只僵尸来啦！我们告诉你每只僵尸出现的时间以及在哪一行出现，要求你求出最少用多少只土豆才能消灭所有的僵尸。

输入第一行一个正整数n，表示僵尸数量。
之后n行中，每行两个正整数L和t，分别表示僵尸所在行和僵尸出现的时间。输出一个正整数，最少需要多少个土豆样例输入

10
1 1
1 61
2 1
2 60
3 1
3 2
3 3
3 4
4 1
4 99999

样例输出

6

提示n<=2000，t<=100000，1<=L<=6

第一次弱弱的改了下qSort、、虽然本来也没什么好得意的、、

然后我们认为，每一行是独立的，所以说.....

（当然不是多进程什么的、、、）

把第l行情况存到T[l,Tt[l]]中，Tt[l]最终存放第l行有多少个僵尸

然后就没什么难的了、、

Code:(2013.10.25)

Var
  Tt:Array[0..7] of longint;
  T:array[0..7,0..2001] of longint;
  i,j,n:longint;
  xx,Iris:longint;
Procedure qSort(l,r,k:longint);
  Var
    i,j,Mid,Tmp:longint;
  Begin
    i:=l;
    j:=r;
    Mid:=T[k,(l+r) Shr 1];
    Repeat
      While T[k,i]>Mid Do Inc(i);
      While T[k,j]<Mid Do Dec(j);
      if i<=j Then
        Begin
          Tmp:=T[k,i];
          T[k,i]:=T[k,j];
          T[k,j]:=Tmp;
          Inc(i);
          Dec(j);
        End;
    Until i>j;
    if i<r Then qSort(i,r,k);
    if l<j Then qSort(l,j,k);
  End;
Begin
  Read(n);
  For i:=1 to n do
    Begin
      Read(j);
      Inc(Tt[j]);
      Read(T[j,Tt[j]]);
    End;
  For i:=1 to 6 do
    if Tt[i]<>0 Then qSort(1,Tt[i],i);
  For i:=1 to 6 do
    if Tt[i]<>0 Then
      Begin
        xx:=T[i,1];
        Inc(Iris);
        For j:=2 to Tt[i] do
          Begin
            if xx-T[i,j]>=60 Then
              Begin
                xx:=T[i,j];
                Inc(Iris);
              End;
          End;
      End;
  Writeln(Iris);
End.
(*)CopyRight Catch-22.s.Iris 2013.10.25(*)

这里还有一个不知道是去年还是前年写的代码、、

空间稍微省了一点儿，但是个人觉得没上面那个清晰、、

var
  i,n,ans:longint;
  time,l:array[1..2000] of longint;
  max:array[1..6] of longint;
procedure Qs(a,r:longint);
  var
    i,j,mid,tmp:longint;
  begin
    i:=a;
    j:=r;
    mid:=Time[random(r-a+1)+a];
    repeat
     while Time[i]<mid do i:=i+1;
     while mid<Time[j] do j:=j-1;
     if i<=j then
       begin
         tmp:=Time[i];
         Time[i]:=Time[j];
         Time[j]:=tmp;
         Tmp:=l[i];
         l[i]:=l[j];
         l[j]:=tmp;
         i:=i+1;
         j:=j-1;
       end;
    until i>j;
    if a<j then Qs(a,j);
    if i<r then Qs(i,r);
end;
begin
  randomize;//新添加,由此知或许是前年写的、、、
  readln(n);
  for i:=1 to n do
    readln(l[i],time[i]);
  Qs(1,n);
  For i:=1 to 6 do
      Max[i]:=0;
  ans:=0;
  for i:=1 to n do
      if time[i]>max[l[i]] then
        begin
          max[l[i]]:=time[i]+59;
          inc(ans);
        end;
  writeln(ans);
end.