一道无语的贪心题......

名字是模仿的HYC小牛 ......

题目确实很无语：

 

 

巧克力

【问题描述】

现在，你有一个n*m的巧克力块，

你要把它们切成1*1的小块。每次你可以竖直的切或者水平的切，每切一次都有一定的费用。并且，当你把一大块巧克力切成两部分后，你在第一部分如何切不会切到第二部分。比如先全部水平切，再竖直切，费用是

(y1+y2+y3)+4*(x1+x2+x3+x4+x5)

【输入格式】

第一行两个数n,m

接下来一行，n-1个数，表示yi

接下来一行，m-1个数，表示xi

【输出格式】

输出一个数，表示把巧克力切成1*1的小块用的最少费用

【样例输入】

2 3

2

1 3

【样例输出】

9

【数据说明】

30%:n,m,xi,yi <=100

70%: n,m,xi,yi <=100000

100%:n,m,xi,yi<=500000

 

 

 

我想了一个n*K的动规：设f[i][j]为在与Y轴平行的方向切了i刀,在与X轴平行的方向切了j刀的最小代价,则有f[i][j]=min{f[i-1][j]+x[i]*(j+1),f[i][j-1]+y[j]*(i+1) | 0≤i≤m-1,0≤j≤n-1},f[0][0]=0。稍微分析一下这个DP：每次都是单纯的代价相加得到总代价，所以，一般地，每一次的最优值都是由前一次的的最优值得到，符合最优子结构性质。并且，对于每一个状态下一步该如何进行操作，与前面的得分和操作无关，满足无后效性。既满足了最优子结构性质又满足无后效性，似乎本题就这样解决了，

将两个序列分别按权值排成降序，这个序列就是我们需要的最优序列。

n*k看了看范围怎么都会超......

正解如下（勿喷）：

 

 

 

  将所有的数据排序，然后从小到大模拟......（就这样，真的就这样......）

 

 

老规矩，贴代码：

{$inline on} program chocolate; const maxlongint=10000000; type re=record data,link:longint; end; var i,j,n,m:longint; x,y:array[1..500000]of longint; a1:array[1..1000000]of re; lx,ly,ans:int64; procedure quicksort(l,r:longint);inline; var i,j,x,y:longint; begin i:=l; j:=r; x:=a1[l].data; y:=a1[l].link; while i<j do begin while (i<j) and (a1[j].data>=x) do dec(j); if i<j then begin a1[i]:=a1[j];inc(i);end; while (i<j) and (a1[i].data<=x) do inc(i); if i<j then begin a1[j]:=a1[i];dec(j);end; end; a1[i].data:=x; a1[i].link:=y; if l<i-1 then quicksort(l,i-1); if r>i+1 then quicksort(i+1,r); end; function min(a,b:longint):longint; begin if a<b then exit(a) else exit(b); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(n,m); for i:=1 to n-1 do begin read(x[i]); a1[i].data:=x[i]; a1[i].link:=1; end; for i:=1 to m-1 do begin read(y[i]); a1[i+n-1].data:=y[i]; a1[i+n-1].link:=2; end; quicksort(1,n+m-2); lx:=1; ly:=1; for i:=n+m-2 downto 1 do begin if a1[i].link=1 then begin inc(ans,a1[i].data*lx); inc(ly); end else begin inc(ans,a1[i].data*ly); inc(lx); end; end; writeln(ans); end.