Pascal题解：摘苹果

摘苹果

时间限制: 1 Sec 内存限制: 128 MB
[提交][状态][讨论版]

题目描述

秋天到了， Yemaster 所在的学校组织小朋友们去秋游。这次他们去的地方是Yemaster的果园，果园里有很多很多的果树。由于Yemaster 和他的小伙伴们总共 N 个人最喜欢吃苹果，所以他们都跑到了一棵苹果树下，这棵苹果树总共结出了 M 个苹果，大方的Yemaster允许小朋友们自己摘他家的苹果吃。

但是现在问题来了，每个苹果都有一个固定的高度。每个小朋友每次跳跃高度也都是一个固定值（跳一次花费的体力等于这个高度值），只要他们的跳跃高度大于等于某个苹果的高度的时候，就可以把那个苹果摘下来，跳一次最多只能摘一个苹果。由于小朋友们还小，体力上可能跟不上，所以规定每个小朋友最多只能跳一次。

现在Yemaster和他的小伙伴想要知道最少需要花费多少的体力才能将这些苹果全部摘完，现在请你来帮助他们吧。

输入

第一行两个正整数 N 和 M，分别表示小朋友的数量和苹果的数量。
第二行 N 个正整数，两个整数间用一个空格分开，第 i 个数 Hi 表示第 i 个小朋友的跳跃高度。
第三行 M 个正整数，两个整数间用一个空格分开，第 i 个数 Pi 表示第 i 个苹果的高度。

输出

如果能够摘完所有的苹果，就输出最小的体力花费，如果不能摘完，就输出“ Bad luck”（不包括引号）。

样例输入

3 2

5 3 6

4 6

样例输出

数据范围

60%的数据， 1<=N,M<=1000， 1<=Hi,Pi<=1000。
100%的数据， 1<=N,M<=100000, 1<=Hi,Pi<=1000000000。

分析

这是一道典型的贪心题目。我们只要每个小朋友跳得高度与苹果高度尽量小就可以保证答案正确且不会超时。如果小朋友跳的高度小于苹果最小高度，我们就丢弃这个小朋友不管。这样，如果小朋友的个数小于了苹果个数，这样，苹果就摘不到了。

主要过程

第一步用快排从大到小排序小朋友的高度和苹果高度。//此步我就不写出来了

第二步：

while m>0 do

begin

i:=n;

while a[i]do //不管无法摘到最低苹果的小朋友

 
       dec(i); 
       n:=i; 
       if nthen            //如果小朋友个数少于苹果个数，则输出无法完成
 
       begin 
         writeln('Bad luck'); 
         halt; 
       end; 
       begin 
         s:=s+a[n]; 
         dec(n); 
         dec(m);    
       end; 
     end;