【NOIP提高组五校联考】道路规划

最新推荐文章于 2019-07-03 20:14:35 发布

TARsier_Gu

最新推荐文章于 2019-07-03 20:14:35 发布

阅读量346

点赞数

分类专栏： NOIP 文章标签： NOIP 五校联考最长下降子序列

本文链接：https://blog.csdn.net/GGTTARsier/article/details/52735816

版权

NOIP 专栏收录该内容

52 篇文章 0 订阅

订阅专栏

Description

这里写图片描述

Solution

很显然可以把题目转换为相连点的位置作为编号，把两个点投影到坐标轴上能够发现，相交的边在投影出的区间一定是相交的。因为要求的是集合内的每一条边都两两相交，所以满足条件的一定是一个区间被另一个大一点的区间完全包含。容易想到，左端点顺序排序后，右端点做最长下降子序列，最长长度即为答案。

Code

var
    a,b,f:array[0..100000] of longint;
    n,i,sum,wz,x:longint;
function max(x,y:longint):longint;
begin
    if x>y then exit(x) else exit(y);
end;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
    i:=l;j:=r;
    mid:=a[(i+j)div 2];
    repeat
        while a[i]<mid do inc(i);
        while mid<a[j] do dec(j);
        if i<=j then
        begin
            a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
            b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
            inc(i); dec(j);
        end;
    until i>j;
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);
end;
function get(l,r,x:longint):longint;
var mid:longint;
begin
    get:=0;
    while l<r do
    begin
        mid:=(l+r)div 2;
        if f[mid]>x then
        begin
            get:=mid;
            l:=mid+1;
        end else r:=mid-1;
    end;
    if f[l]>x then get:=l;
    exit(get);
end;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do
    begin
        read(b[i]);
        f[b[i]]:=i;
    end;
    for i:=1 to n do
    begin
        b[i]:=f[a[i]];
        a[i]:=i;
    end;
    fillchar(f,sizeof(f),0);
    qsort(1,n);
    sum:=1;
    f[1]:=b[1];
    for i:=2 to n do
    begin
        wz:=get(1,sum,b[i]);
        inc(wz);
        f[wz]:=max(f[wz],b[i]);
        if wz>sum then sum:=wz;
    end;
    writeln(sum);
end.