一大堆的福利之【USACO题库】Barn Repair修理牛棚

题目描述

在一个暴风雨的夜晚,农民约翰的牛棚的屋顶、门被吹飞了。 好在许多牛正在度假，所以牛棚没有住满。 剩下的牛一个紧挨着另一个被排成一行来过夜。 有些牛棚里有牛，有些没有。 所有的牛棚有相同的宽度。 自门遗失以后,农民约翰很快在牛棚之前竖立起新的木板。 他的新木材供应者将会供应他任何他想要的长度,但是供应者只能提供有限数目的木板。 农民约翰想将他购买的木板总长度减到最少。 给出 M(1<= M<=50),可能买到的木板最大的数目;S(1<= S<=200),牛棚的总数;C(1 <= C <=S) 牛棚里牛的数目,和牛所在的牛棚的编号stall_number(1 <= stall_number <= S),计算拦住所有有牛的牛棚所需木板的最小总长度。 输出所需木板的最小总长度作为的答案。

PROGRAM NAME: barn1

INPUT FORMAT

第 1 行:	M ， S 和 C(用空格分开)
第 2 到 C+1行:	每行包含一个整数，表示牛所占的牛棚的编号。

SAMPLE INPUT (file barn1.in)

4 50 18

3

4

6

8

14

15

16

17

21

25

26

27

30

31

40

41

42

43

OUTPUT FORMAT

单独的一行包含一个整数表示所需木板的最小总长度。

SAMPLE OUTPUT (file barn1.out)

25

[ 一种最优的安排是用板拦住牛棚3-8,14-21,25-31,40-43.]

uses math;
var
   i,n,ans,m,c:longint;
   a:array[0..200] of longint;
procedure s(l,r:longint);
var i,j,mid:longint;
begin
    i:=l;j:=r; mid:=a[l+random(r-l)];
    repeat
        while a[i]<mid do inc(i);
        while a[j]>mid do dec(j);
        if i<=j then
        begin
            a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
            inc(i); dec(j);
        end;
    until i>j;
    if l<j then s(l,j);
    if i<r then s(i,r);
end;
begin
    readln(m,c,n);
    for i:=1 to n do
    read(a[i]);
    s(1,n);
    ans:=a[n]-a[1]+1;
    for i:=1 to n-1 do
    a[i]:=a[i+1]-a[i]-1;
    s(1,n-1);
    for i:=n-1 downto max(n-m+1,1) do ans:=ans-a[i];
    write(ans);
end.