首先不難想到排序，這種無規(guī)律的東西一般都要轉(zhuǎn)化為有規(guī)律才好做

首先以x為第一關(guān)鍵字，y為第二關(guān)鍵字升序排序

拍完序我們發(fā)現(xiàn)，若存在兩塊土地i,j

x[i]<=x[j],y[i]<=y[j],那么土地i的購買一定可以忽略（因為價格是由x,y的乘積決定的）

剔除掉不需考慮的土地，不難發(fā)現(xiàn)剩下的土地x是升序而y是降序的

然后就可以dp了

f[i]=min(f[k]+x[i]*y[k+1]); (0<=k<=i-1)

顯然這個是很容易用斜率優(yōu)化的，不多說了

1 var q,st:array[0..50010] of longint; 2 ? ? x,y,f:array[0..50010] of int64; 3 ? ? w,n,t,h,r,i:longint; 4 5 procedure swap(var a,b:int64); 6 ? var c:longint; 7 ? begin 8 ? ? c:=a; 9 ? ? a:=b; 10 ? ? b:=c; 11 ? end; 12 13 procedure sort(l,r: longint); 14 ? var i,j: longint; 15 ? ? ? p,q:int64; 16 ? begin 17 ? ? i:=l; 18 ? ? j:=r; 19 ? ? p:=x[(l+r) shr 1]; 20 ? ? q:=y[(l+r) shr 1]; 21 ? ? repeat 22 ? ? ? while (x[i]<p) or (x[i]=p) and (y[i]<q) do inc(i); 23 ? ? ? while (p<x[j]) or (p=x[j]) and (q<y[j]) do dec(j); 24 ? ? ? if not(i>j) then 25 ? ? ? begin 26 ? ? ? ? swap(x[i],x[j]); 27 ? ? ? ? swap(y[i],y[j]); 28 ? ? ? ? inc(i); 29 ? ? ? ? j:=j-1; 30 ? ? ? end; 31 ? ? until i>j; 32 ? ? if l<j then sort(l,j); 33 ? ? if i<r then sort(i,r); 34 ? end; 35 36 function check(l,r:longint):double; 37 ? begin 38 ? ? check:=(f[l]-f[r])/(y[st[r+1]]-y[st[l+1]]); 39 ? end; 40 41 begin 42 ? readln(n); 43 ? for i:=1 to n do 44 ? ? readln(x[i],y[i]); 45 ? sort(1,n); 46 ? t:=1; 47 ? st[1]:=1; 48 ? for i:=2 to n do 49 ? begin 50 ? ? while (t>0) and (x[i]>=x[st[t]]) and (y[i]>=y[st[t]]) do dec(t); 51 ? ? inc(t); 52 ? ? st[t]:=i; 53 ? end; 54 ? f[0]:=0; 55 ? r:=0; 56 ? h:=0; 57 ? for i:=1 to t do 58 ? begin 59 ? ? while (h<r) and (check(q[h+1],q[h])<=x[st[i]]) do inc(h); 60 ? ? w:=q[h]; 61 ? ? f[i]:=f[w]+y[st[w+1]]*x[st[i]]; 62 ? ? while (h<r) and (check(i,q[r])<check(q[r],q[r-1])) do dec(r); 63 ? ? inc(r); 64 ? ? q[r]:=i; 65 ? end; 66 ? writeln(f[t]); 67 end. View Code

?

轉(zhuǎn)載于:https://www.cnblogs.com/phile/p/4473166.html

總結(jié)

以上是生活随笔為你收集整理的bzoj1597的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。