UC知道pascal矩形分割
来源：百度知道 编辑：UC知道 时间：2024/06/08 19:26:10
对于一块木板，我们只能从某条横线或者某条竖线（要在方格线上），而且这木板是不均匀的，从不同的线切割下去要花不同的代价。而且，对于一块木板，切割一次以后就被分割成两块，而且不能把这两块木板拼在一起然后一刀切成四块，只能两块分别再进行一次切割。
现在，给出从不同的线切割所要花的代价，求把整块木板分割成1×1块小方块所需要耗费的最小代价。
Input Format
输入文件第一行包括N和M，表示长N宽M的矩阵。
第二行包括N-1个非负整数，分别表示沿着N-1条横线切割的代价。
第二行包括M-1个非负整数，分别表示沿着M-1条竖线切割的代价。
Output Format
输出一个整数，表示最小代价。
Sample Input
2 2
3
3
Sample Output
9
Data Limit
对于60%的数据，有1 ≤ N ,M≤ 100；
对于100%的数据，有1 ≤ N,M ≤ 2000。
Type c=array[0..2002] of longint;
Var n,m,i,j:longint;
a,b:c;
f:array[0..2002,0..2002] of longint;
Function min(x,y:longint):longint;
begin
if x<y then min:=x
else min:=y;
end;
Procedure sort(p,q:longint; var a:c);
var l,r,o,x:longint;
begin
l:=p; r:=q;
o:=a[l+random(r-l+1)];
repeat
while a[l]>o do inc(l);
while o>a[r] do dec(r);
if l<=r then begin
x:=a[l];
a[l]:=a[r];
a[r]:=x;
inc(l); dec(r);
end;
until l>r;
if p<r then sort(p,r,a);
if l<q then sort(l,q,a);
end;
Begin
readln(n,m);
for i:=1 to n-1 do read(a[i]); readln;
for i:=1 to m-1 do read(b[i]); readln;
randomize;
sort(1,n-1,a);
sort(1,m-1,b);
for i:=1 to n-1 do f[i,