zoukankan      html  css  js  c++  java
  • 1046: [HAOI2007]上升序列

    Description

    对于一个给定的S={a1,a2,a3,…,an},若有P={ax1,ax2,ax3,…,axm},满足(x1 < x2 < … < xm)且( ax1 < ax2 < … < axm)。那么就称P为S的一个上升序列。如果有多个P满足条件,那么我们想求字典序最小的那个。任务给出S序列,给出若干询问。对于第i个询问,求出长度为Li的上升序列,如有多个,求出字典序最小的那个(即首先x1最小,如果不唯一,再看x2最小……),如果不存在长度为Li的上升序列,则打印Impossible.
    Input

    第一行一个N,表示序列一共有N个元素第二行N个数,为a1,a2,…,an 第三行一个M,表示询问次数。下面接M行每行一个数L,表示要询问长度为L的上升序列。
    Output

    对于每个询问,如果对应的序列存在,则输出,否则打印Impossible.
    Sample Input
    6
    3 4 1 2 3 6
    3
    6
    4
    5
    Sample Output
    Impossible
    1 2 3 6
    Impossible
    数据范围
    N<=10000
    M<=1000

    先nlogn倒着做完最长上升,然后用一个数组b存以i为开头的最长上升子序列的长度

    每个询问,从前往后扫一遍,能用就用,就是字典序最小的了(MD,一开始以为是数字最小,还排了一个序,原来是下标)

     1 const
     2     maxn=10010;
     3 var
     4     f,a,b:array[0..maxn]of longint;
     5     n,m,max:longint;
     6  
     7 procedure find(x:longint);
     8 var
     9     l,r,mid:longint;
    10 begin
    11     l:=1;
    12     r:=max+1;
    13     while l<>r do
    14       begin
    15         mid:=(l+r)>>1;
    16         if f[mid]>a[x] then l:=mid+1
    17         else r:=mid;
    18       end;
    19     if l>max then max:=l;
    20     if f[l]<a[x] then f[l]:=a[x];
    21     b[x]:=l;
    22 end;
    23  
    24 procedure init;
    25 var
    26     i:longint;
    27 begin
    28     read(n);
    29     for i:=1 to n do
    30       begin
    31         f[i]:=-100000000;
    32         read(a[i]);
    33       end;
    34     for i:=n downto 1 do
    35       find(i);
    36 end;
    37  
    38 procedure work;
    39 var
    40     i,j,x,lasta:longint;
    41 begin
    42     read(m);
    43     for i:=1 to m do
    44       begin
    45         read(x);
    46         lasta:=-1000;
    47         if x>max then write('Impossible')
    48         else
    49           for j:=1 to n do
    50             if (b[j]>=x) and (a[j]>lasta) then
    51             begin
    52               dec(x);
    53               lasta:=a[j];
    54               if x>0 then write(a[j],' ')
    55               else write(a[j]);
    56               if x=0 then break;
    57             end;
    58         writeln;
    59       end;
    60 end;
    61  
    62 begin
    63     init;
    64     work;
    65 end.
    View Code
  • 相关阅读:
    Linux rpm 安装MySQL
    AOP 底层实现原理
    7 AOP
    HTTP 协议
    Oracle JDBC 标准连接实例
    Oracle JDBC 连接池
    Anaconda XGBoost安装
    Anaconda Spyder 导入自定义函数(模块)
    Hive常用sql
    决策树之信息增益计算模拟
  • 原文地址:https://www.cnblogs.com/Randolph87/p/3651187.html
Copyright © 2011-2022 走看看