3928. 【NOIP2014模拟11.6】射击 (Standard IO)

Description

有问题，找副连，无聊的时候当然也可以找他啦。小W找到了他的叔叔——东厂厂长——宇宙超级无敌老WS yy。他们叔侄两个商量之后决定用弹弓打破社区里的一些窗户，但是弹弓每秒只能彻底打破一扇窗户。而且如果某户窗户的主人回来了的话，他们就不能进行破坏了（不然会死得很惨的）。因为有的人装的玻璃好，有的人装的玻璃差，有的人装的玻璃高，有的人装的玻璃矮，所以你不能要求他们叔侄两个打破不同的窗户获得的快乐值必须相同。现在他们想知道在能活着的情况下能够获得的最大快乐值。

Input

第一行一个正整数n，表示共有n个窗户。
接下来n行，每行两个整数，第一个为窗子的主人回来的时刻（秒），第二个为破坏该窗户所能获得的快乐值。

Output

最大的快乐值。

Sample Input

4
1 19
2 10
1 20
2 15

Sample Output

35

思路

先以快乐度，用一条单向链条指向前面空闲的日子，一数组表示各个日子有没有破坏窗户，从快乐度最多的开始枚举，判断那一天可不可以做，如果不行往前找一个最近的悠闲的日子。

var
  a:array[0..200000,1..2] of longint;
  b:array[0..2000000] of boolean;
  f:array[0..2000000] of longint;
  n,i,j,c:longint;
  ans:int64;
procedure qsort(l,r:longint);
var
  mid,p:longint;
begin
  i:=l;j:=r;
  mid:=a[(l+r)div 2,2];
  repeat
    while a[i,2]>mid do inc(i);
    while a[j,2]<mid do dec(j);
    if i<=j then
      begin
        p:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=p;
        p:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=p;
        inc(i);dec(j);
      end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
procedure init;
begin
  readln(n);
  fillchar(f,sizeof(f),false);
  for i:=1 to n do
    begin
      readln(a[i,1],a[i,2]);
      a[i,1]:=a[i,1] mod 1170541;
      if a[i,2]<0 then a[i,2]:=0;
    end;
end;
function xjhshlr(x:longint):longint;
begin
  if (f[x]=0)or(b[x]=false) then exit(x);
  f[x]:=xjhshlr(f[x]);
  exit(f[x]);
end;
begin
  init;
  qsort(1,n);
  fillchar(b,sizeof(b),false);
  b[0]:=true;
  for i:=1 to n do
    f[i]:=i-1;
  for i:=1 to n do
    begin
      if b[a[i,1]]=false then c:=a[i,1]
      else c:=xjhshlr(f[a[i,1]]);
      if b[c]=false then
        begin
          ans:=ans+a[i,2];
          b[c]:=true;
        end;
    end;
  writeln(ans);
end.