记录编号 130279 评测结果 AAAAAAAAAAAAAAAAAAAAA
题目名称 [HAOI 2014]贴海报 最终得分 100
用户昵称 Gravatar筽邝 是否通过 通过
代码语言 Pascal 运行时间 0.019 s
提交时间 2014-10-21 21:49:26 内存使用 0.18 MiB
显示代码纯文本
program cojs1682;
type
  anode=record
    l,r,ans:longint;
  end;
var
  a:array[1..1010]of anode;
  sum,i,n,m:longint;

procedure cover(l,r,k,c:longint);
begin
  while (k<=m)and((r<a[k].l)or(l>a[k].r)) do
    inc(k);
  if k>m then
  begin
    inc(a[c].ans,r-l+1);
    exit;
  end;
  if l<a[k].l then
  begin
    cover(l,a[k].l-1,k+1,c);
    l:=a[k].l;
  end;
  if r>a[k].r then
  begin
    cover(a[k].r+1,r,k+1,c);
    r:=a[k].r;
  end;
end;

begin
assign(input,'ha14d.in');reset(input);
assign(output,'ha14d.out');rewrite(output);

  readln(n,m);
  for i:=1 to m do
    with a[i] do readln(l,r);
  for i:=1 to m do
    with a[i] do cover(l,r,i+1,i);
  for i:=1 to m do
    if a[i].ans>0 then inc(sum);
  writeln(sum);

close(input);close(output);
end.