记录编号 39500 评测结果 AAAAAAAAAA
题目名称 区间权最大 最终得分 100
用户昵称 Gravatarwo shi 刘畅 是否通过 通过
代码语言 Pascal 运行时间 2.672 s
提交时间 2012-07-12 15:54:49 内存使用 19.24 MiB
显示代码纯文本
var
  i,j,n,m:longint;
  yes:boolean;
  x,y,l,r,w:array[0..1000000]of longint;

procedure swap(var x,y:longint);
var
  t:longint;
begin
  t:=x;
  x:=y;
  y:=t;
end;

procedure sort(ll,rr:longint);
var
  x,i,j:longint;
begin
  i:=ll;
  j:=rr;
  x:=w[(ll+rr) div 2];
  repeat
    while w[i]>x do inc(i);
    while x>w[j] do dec(j);
    if i<=j then
    begin
      swap(w[i],w[j]);
      swap(l[i],l[j]);
      swap(r[i],r[j]);
      inc(i);
      dec(j);
    end;
  until i>j;
  if i<rr then sort(i,rr);
  if ll<j then sort(ll,j);
end;

begin
  assign(input,'max.in'); reset(input);
  assign(output,'max.out'); rewrite(output);
  readln(n,m);
  for i:=1 to n do readln(l[i],r[i],w[i]);
  for i:=1 to n do readln(x[i],y[i]);
  sort(1,n);
  for i:=1 to m do
  begin
    yes:=false;
    for j:=1 to n do
    if (l[j]>=x[i])and(r[j]<=y[i]) then
    begin
      yes:=true;
      writeln(w[j]);
      break;
    end;
    if not yes then writeln(0);
  end;
  close(input);
  close(output);
end.