题面:
今天是下雨天!FJ的N ( 1 < = N < = 5,000)头奶牛不喜欢被淋湿。它们站在数轴上(1到M ( 1 < = M < = 100,000 )),现在FJ要买伞,遮住i个点的伞要Ci元,问给所有的牛遮雨要花多少钱?
只能说这题比较坑了,跟[USACO 2012 Dec]Wifi Setup比较像,好像此题比那题先出。。
坑在哪里呢。就是比方说遮住10个点的伞可能比遮住9个点的伞要便宜(不知道是不是盗版),所以就不能直接按距离做,这里我做了一个处理,就是如果小的伞要比大的伞贵,就把小的伞的价格变成大的伞的价格,这样就可以直接按照距离做了,可以保证答案的最优性。
先将奶牛的位置排序。直接给出转移方程:
F[I]:=MIN(F[J],COST[A[I]-A[J+1]+1]) (J<I)
时间复杂度O(N^2)。
var
n,m,i,j,k:longint;
cost:array[0..100000] of longint;
f,a:array[0..5000] of longint;
function min(a,b:longint):longint;
begin if a<b then exit(a); exit(b); end;
procedure qsort(l,r:longint);
var i,j,m,t:longint;
begin
i:=l; j:=r; m:=a[(l+r) div 2];
repeat
while a[i]<m do inc(i);
while a[j]>m do dec(j);
if i<=j then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
begin
readln(n,m);
for i:=1 to n do
readln(a[i]);
qsort(1,n);
for i:=1 to m do
readln(cost[i]);
for i:=m-1 downto 1 do
if cost[i]>cost[i+1] then
cost[i]:=cost[i+1];
for i:=1 to n do
f[i]:=cost[a[i]-a[1]+1];
for i:=2 to n do
for j:=1 to i-1 do
f[i]:=min(f[i],f[j]+cost[a[i]-a[j+1]+1]);
writeln(f[n]);
end.