grass

1510. 【普及模拟】剪草 
(File IO): input:grass.in output:grass.out

时间限制:  1000 ms  空间限制:  131072 KB  具体限制  

Goto ProblemSet

题目描述

     有N棵小草，编号0至N-1。奶牛Bessie不喜欢小草，所以Bessie要用剪刀剪草，目标是使得这N棵小草的高度总和不超过H。在第0时刻，第i棵小草的高度是h[i]，接下来的每个整数时刻，会依次发生如下三个步骤：

（1）每棵小草都长高了，第i棵小草长高的高度是grow[i]。

（2）Bessie选择其中一棵小草并把它剪平，这棵小草高度变为0。注意：这棵小草并没有死掉，它下一秒还会生长的。

（3）Bessie计算一下这N棵小草的高度总和，如果不超过H，则完成任务，一切结束，    否则轮到下一时刻。

你的任务是计算：最早是第几时刻，奶牛Bessie能完成它的任务？如果第0时刻就可以完成就输出0，如果永远不可能完成，输出-1，否则输出一个最早的完成时刻。

输入

第一行，两个整数N和H。 1  ≤  N  ≤  50 ，0  ≤  H  ≤  1000000 。

第二行，N个整数，表示h[i]。0  ≤  h[i]  ≤  100000 。

第三行，N个整数，表示grow[i]。1  ≤  grow[i]  ≤  100000 。

     对于20%的数据， 1  ≤  N  ≤  7。

输出

  一个整数，最早完成时刻或-1。

样例输入

样例输出

数据范围限制

提示

输入样例	3 16 5 8 58 2 1 1	2 58 5 8 2 1	2 0 5 8 2 1	7 33 5 1 6 5 8 4 7 2 1 1 1 4 3 2
输出样例	1	0	-1	5
样例解释	到了第1时刻，三棵小草的高度依次是7,9,59。如果奶牛Bessie把高度是59的小草剪掉，那么三棵小草高度是7+9+0=16,任务完成。			第1秒剪第2棵小草，第2秒剪第0棵小草，第3秒剪6棵小草，第4秒剪第5棵小草，第5秒剪第4棵小草。

uses math;
var
        a,b,c,ans,ans1,i,j,k,ans2:longint;
        v,r:array[0..50]of longint;
        f:array[0..50,0..50]of longint;
procedure ss(l,u:longint);
var
        i,j,mid,mid1:longint;
begin
        i:=l;
        j:=u;
        mid:=r[(i+j) div 2];
        mid1:=v[(i+j) div 2];
        while i<j do
        begin
                while (r[i]<mid)or((r[i]=mid)and(v[i]>mid1)) do inc(i);
                while (r[j]>mid)or((r[j]=mid)and(v[j]<mid1)) do dec(j);
                if i<=j then
                begin
                        v[0]:=v[i];
                        v[i]:=v[j];
                        v[j]:=v[0];
                        r[0]:=r[i];
                        r[i]:=r[j];
                        r[j]:=r[0];
                        inc(i);
                        dec(j);
                end;
        end;
        if l<j then ss(l,j);
        if i<u then ss(i,u);
end;
begin
        assign(input,'grass.in');reset(input);
        assign(output,'grass.out');rewrite(output);
        readln(a,b);
        for c:=1 to a do
        begin
                read(v[c]);
                inc(ans,v[c]);
        end;
        for c:=1 to a do
        begin
                read(r[c]);
                inc(ans1,r[c]);
        end;
        if ans<=b then
        begin
                writeln(0);
                halt;
        end;
        ss(1,a);
        fillchar(f,sizeof(f),127 div 3);
        ans2:=maxlongint;
        f[0,0]:=ans;
        for i:=1 to a do
        begin
                for j:=0 to i-1 do
                begin
                        for k:=0 to j do
                        begin
                                f[i,k+1]:=min(f[i,k+1],f[j,k]+ans1-((k+1)*r[i])-v[i]);
                                if (f[i,k+1]<=b) then ans2:=min(ans2,k+1);
                        end;
                end;
        end;
        if ans2=maxlongint then
        begin
                writeln(-1);
                halt;
        end;
        writeln(ans2);
        close(input);
        close(output); 
end.