POJ 2376

POJ 2376 Cleaning Shifts

题目大意：有n只牛和t项工作，每只牛可以执行x至y项工作，求最少的牛可以把每件工作至少执行一次。

解法：由于1<=n<=25,000;1<=T<=1,000,000；由此看出不是搜索，仔细观察发现是一个求最少线段覆盖一条线段的模型。

先置s=0，将线段按x关键字排序，然后开始贪心，每次选可以覆盖到s的（x-1<=s）且y最大的线段，然后更新s:=y;

贪心的思想…注意处理无解如何退出，这里我觉得我需要回去仔细研究下如何退出循环，虽然AC，但并不代表完美。

{突然发现自己的风格改了对不上号了囧}

{2011.11.20
poj P2376
USACO 2004 December Sliver}
const
        maxn=25000;
        maxt=1000000;
type
        data=record
          x, y: longint;
        end;
var
        a: array[1..maxn]of data;
        f: array[0..maxt]of boolean;
        n, t, ans: longint;
procedure qsort(b, e: longint);
var
        i, j, x: longint;
        k: data;
begin
  i := b;
  j := e;
  x := a[(i+j)shr 1].x;
  repeat
    while a[i].x<x do inc(i);
    while a[j].x>x do dec(j);
    if i<=j then
      begin
        k := a[i];
        a[i] := a[j];
        a[j] := k;
        inc(i);
        dec(j);
      end;
  until i>j;
  if j>b then qsort(b, j);
  if i<e then qsort(i, e);
end;

procedure init;
var
        i: longint;
begin
  fillchar(f, sizeof(f), 0);
  f[0] := true;
  ans := 0;

  readln(n, t);
  for i := 1 to n do
    with a[i] do
      readln(x, y);
  qsort(1, n);
end;

procedure main;
var
        i, j, s: longint;
begin
  s := 0;
  i := 0;
  while s<t do
    begin
      inc(i);
      if a[i].x>s+1 then exit;
      j := i;
      while (f[a[i].x-1]) do
        begin
          if a[i].y>a[j].y then j := i;
          inc(i);
          if i>n then break;
        end;
      if i<>j then
       for i := s+1 to a[j].y do
        f[i] := true;
      s := a[j].y;
      i := j;
      inc(ans);
    end;
end;

procedure print;
var
        i: longint;
begin
  for i := t downto 1 do
    if f[i]=false then
      ans := -1;
  writeln(ans);
end;

begin
  //assign(input,'test.in'); reset(input);
  init;
  main;
  print;
end.