• 1293: [SCOI2009]生日礼物


    Description

    小西有一条很长的彩带,彩带上挂着各式各样的彩珠。已知彩珠有N个,分为K种。简单的说,可以将彩带考虑为x轴,每一个彩珠有一个对应的坐标(即位置)。某些坐标上可以没有彩珠,但多个彩珠也可以出现在同一个位置上。 小布生日快到了,于是小西打算剪一段彩带送给小布。为了让礼物彩带足够漂亮,小西希望这一段彩带中能包含所有种类的彩珠。同时,为了方便,小西希望这段彩带尽可能短,你能帮助小西计算这个最短的长度么?彩带的长度即为彩带开始位置到结束位置的位置差。
    Input

    第一行包含两个整数N, K,分别表示彩珠的总数以及种类数。接下来K行,每行第一个数为Ti,表示第i种彩珠的数目。接下来按升序给出Ti个非负整数,为这Ti个彩珠分别出现的位置。
    Output

    应包含一行,为最短彩带长度。
    Sample Input

    6 3

    1 5

    2 1 7

    3 1 3 8

    Sample Output

    3

    HINT

    有多种方案可选,其中比较短的是1~5和5~8。后者长度为3最短。
    【数据规模】
    对于50%的数据, N≤10000;
    对于80%的数据, N≤800000;
    对于100%的数据,1≤N≤1000000,1≤K≤60,0≤彩珠位置<2^31。

    唉,二分答案都没想到,思路有点不清晰啊

      1 const
      2     maxn=1000010;
      3     maxk=65;
      4 type
      5     node=record
      6       x,k:longint;
      7     end;
      8 var
      9     a:array[0..maxn]of node;
     10     n,k:longint;
     11 
     12 operator <(a,b:node)c:boolean;
     13 begin
     14     c:=a.k<b.k;
     15 end;
     16 
     17 procedure swap(var x,y:node);
     18 var
     19     t:node;
     20 begin
     21     t:=x;x:=y;y:=t;
     22 end;
     23 
     24 procedure sort(l,r:longint);
     25 var
     26     i,j:longint;
     27     y:node;
     28 begin
     29     i:=l;
     30     j:=r;
     31     y:=a[(l+r)>>1];
     32     repeat
     33       while a[i]<y do
     34         inc(i);
     35       while y<a[j] do
     36         dec(j);
     37       if i<=j then
     38       begin
     39         swap(a[i],a[j]);
     40         inc(i);
     41         dec(j);
     42       end;
     43     until i>j;
     44     if i<r then sort(i,r);
     45     if j>l then sort(l,j);
     46 end;
     47 
     48 procedure init;
     49 var
     50     i,j,x:longint;
     51 begin
     52     read(k,k);
     53     for i:=1 to k do
     54       begin
     55         read(x);
     56         for j:=1 to x do
     57           begin
     58             inc(n);
     59             read(a[n].k);
     60             a[n].x:=i;
     61           end;
     62       end;
     63     sort(1,n);
     64 end;
     65 
     66 function flag(len:longint):boolean;
     67 var
     68     l,r,s:longint;
     69     cnt:array[0..maxk]of longint;
     70 begin
     71     l:=1;
     72     r:=0;
     73     s:=0;
     74     fillchar(cnt,sizeof(cnt),0);
     75     while  r<n do
     76       begin
     77         inc(r);
     78         inc(cnt[a[r].x]);
     79         if cnt[a[r].x]=1 then inc(s);
     80         while a[r].k-a[l].k>len do
     81           begin
     82             dec(cnt[a[l].x]);
     83             if cnt[a[l].x]=0 then dec(s);
     84             inc(l);
     85           end;
     86         if s=k then exit(true);
     87       end;
     88     exit(false);
     89 end;
     90 
     91 procedure work;
     92 var
     93     l,r,mid:longint;
     94 begin
     95     l:=0;
     96     r:=a[n].k-a[1].k;
     97     while l<>r do
     98       begin
     99         mid:=longint((int64(l)+r)>>1);
    100         if flag(mid) then r:=mid
    101         else l:=mid+1;
    102       end;
    103     write(l);
    104 end;
    105 
    106 begin
    107     init;
    108     work;
    109 end.
    View Code
  • 相关阅读:
    判断平面的一堆点是否在两条直线上
    约数的个数 + 贪心
    划分树板子
    如何获取前端提交来得json格式数据
    post 和php://input 转
    使用Guzzle执行HTTP请求
    redis集群搭建 不用ruby
    systemctl命令
    canal 配置 多个监听 推送到不同mq
    canal 整合RabbitMQ
  • 原文地址:https://www.cnblogs.com/Randolph87/p/3739435.html
Copyright © 2020-2023  润新知