贪心 零件分组

SSL 2282 2321
洛谷 P2093 零件分组
某工厂生产一批棍状零件，每个零件都有一定的长度（Li）和重量（Wi）。现在为了加工需要，要将它们分成若干组，使每一组的零件都能排成一个长度和重量都不下降（若i小于j，则Li<=Lj，Wi<=Wj）的序列。请问至少要分成几组?

type haha=record l,w:longint; end;
var
  n,i,j,s:longint;
  h:haha;
  a:array[1..1000]of haha;
  b:array[1..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
   read(a[i].l,a[i].w);
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if (a[i].l>a[j].l)or(a[i].l=a[j].l)and(a[i].w>a[j].w) then
     begin
       h:=a[i];a[i]:=a[j];a[j]:=h;
     end;
  s:=0;
  for i:=1 to n do
   begin
     j:=1;
     while b[j]>a[i].w do inc(j);
     if j>s then inc(s);
     b[j]:=a[i].w;
   end;
  writeln(s);
end.

贪心解题，先排序，按顺序排好长度与总量。
然后一层一层判断，如果本次的分组数比之前的大，那就将分组数量加一。

看完点赞么么哒