记录编号 |
39500 |
评测结果 |
AAAAAAAAAA |
题目名称 |
区间权最大 |
最终得分 |
100 |
用户昵称 |
wo 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.