题目描述
在一个暴风雨的夜晚,农民约翰的牛棚的屋顶、门被吹飞了。 好在许多牛正在度假,所以牛棚没有住满。 剩下的牛一个紧挨着另一个被排成一行来过夜。 有些牛棚里有牛,有些没有。 所有的牛棚有相同的宽度。 自门遗失以后,农民约翰很快在牛棚之前竖立起新的木板。 他的新木材供应者将会供应他任何他想要的长度,但是供应者只能提供有限数目的木板。 农民约翰想将他购买的木板总长度减到最少。 给出 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.