鸡国福利

题目描述

鸡国为了表彰鸡国每一只鸡在过去一年的优秀表现，打算在接下来的 n 天中每天给鸡国的一只鸡发 1 袋或者 2 袋“鸡币”（鸡国的通用货币）作为福利。国王要求每天来领钱鸡互不相同，即来领过钱的鸡不能再来，否则将受到严厉的处罚。
但聪明的鸡国老百姓侦察后发现国王每天发的钱袋子里面装的钱数量是不一样的（同一天的相同），第 i 天发的每一袋钱为 ai元。如果第 i 天来领钱的鸡领 1 袋钱，它可以获得ai元的“鸡币”，如果它领 2 袋钱，则可以获得 2×ai元“鸡币”，当然它也可以放弃，则第i 天的钱国王收回国库。
由于鸡国生活条件优越和鸡的贪念等原因，当第 i 天领钱的鸡同时满足以下两个条件时
它才会感到幸福：
（1）领到的钱不能低于鸡国的平均收入 m 元。
（2）要跟它前面领了钱且感到幸福的鸡一样幸福或者更幸福。
仁慈的国王希望鸡国的每一只鸡都能感到幸福，请你帮国王规划一下在这 n 天中怎样给每一只发钱才能让最多的鸡感到幸福?

输入

输入共 2 行。
第 1 行输入两个整数 n 和 m，分别表示发钱的天数（或理解为来领钱的鸡数）和鸡国的平均收入。
第 2 行 n 个正整数 ai(1≤i≤n)，依次表示第 i 天发的一袋钱中的“鸡币”为 ai元。

输出

输出 1 行一个整数，表示最多可以让多少只鸡感到幸福。

样例输入

Input1:
2 1
2 1

Input2:
3 2
1 2 3

Input3:
6 4
1 2 1 2 1 5

样例输出

Output1:
2

Output2:
3

Output3:
3

提示

Sample1:
样例 1 中，可以让第 1 天来领钱的第 1 只鸡领 2 元（1 袋），第 2 天来领钱的第 2 只鸡领 2 元（2 袋），最多可以有 2 只鸡感到幸福。

Sample2:
样例 2 中，由于鸡国的平均收入为 2 元，所以领 1 元及以下的鸡是不会感到幸福。可以让第 1 天来领钱的第 1 只鸡领 2 元（2 袋），第 2 天来领钱的第 2 只鸡领 2 元（1 袋），第 3 天来领钱的第 3 只鸡领 3 元（1 袋），最多可以有 3 只鸡感到幸福。

Sample3:
样例 3 中，由于鸡国的平均收入为 4 元，所以第 1 天，第 3 天，第 5 天来领钱的鸡不管领 1 袋钱，或者领 2 袋钱，或者不领都不会感到幸福。可以让第 2 天来领钱的第 2 只鸡领4 元（2 袋），第 4 天来领钱的第 4 只鸡领 4 元（2 袋），第 6 天来领钱的第 6 只鸡领 5 元（1袋），最多可以有 3 只鸡感到幸福。

TJ

题目就是说给你一串数，你可以把一些数*2，做不连续最长不下降子序列（前提是>m）

考虑到时间问题，我们必须用O（n log n）的最长不下降子序列。其实就是一个二分型的暴力。

BC

var     n,m,i,l,t:longint;
        f,a:array[0..1000000] of longint;
function pd(l,r,t:longint):longint;
var     mid:longint;
begin
        repeat
                mid:=(l+r)div 2;
                if f[mid]>t then r:=mid-1
                else l:=mid+1;
        until l>r;
        exit(l);
end;
begin
        readln(n,m);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do
        begin
                t:=a[i];
                if t*2<m then continue;
                if t<m then
                begin
                        if t*2>=f[l] then
                        begin
                                inc(l);
                                f[l]:=t*2;
                        end
                        else f[pd(1,l,t*2)]:=t*2;
                end
                else
                if t>=f[l] then
                begin
                        inc(l);
                        f[l]:=t;
                end
                else
                if t*2>=f[l] then
                begin
                        f[pd(1,l,t)]:=t;
                        inc(l);
                        f[l]:=t*2;
                end
                else
                begin
                        f[pd(1,l,t)]:=t;
                        f[pd(1,l,t*2)]:=t*2;
                end;
        end;
        writeln(l);
end.