樸素的也不好寫：

for i:=0 to n dof[i,0]:=0;for i:=1 to n dobeginfor j:=1 to a[i].s-1 dof[i,j]:=max(f[i-1,j],f[i,j-1]);for j:=a[i].s to a[i].s+a[i].l-1 dobeginif j>l then break;f[i,j]:=max(f[i,j-1],f[i-1,j]);for k:=0 to a[i].s doif j-k<=a[i].l thenf[i,j]:=max(f[i,j],f[i-1,k]+(j-k)*a[i].p);if f[i,j]>ans then ans:=f[i,j];end;end;

　　

寫樸素的寫了有一個多小時，一開始根本沒注意連續這個問題，后來有忘了a[i].s前面的值的初始化。

非常好的一個題目。

給出單調隊列優化后的核心代碼：

beginreadln(l,n);for i:=1 to n dowith a[i] doreadln(l,p,s);qs(1,n);for i:=1 to n dobeginfor j:=0 to a[i].s-1 do f[i,j]:=f[i-1,j];head:=1; tail:=1; w[1]:=-1; q[1]:=0;for j:=max(0,a[i].s-a[i].l) to a[i].s-1 dobegink:=f[i-1,j]-a[i].p*j;while (head<=tail)and(w[tail]<=k) do dec(tail);inc(tail);w[tail]:=k;q[tail]:=j;end;for j:=a[i].s to l dobeginwhile (head<=tail)and(q[head]<j-a[i].l) do inc(head);f[i,j]:=max(f[i-1,j],f[i,j-1]);if head<=tail then f[i,j]:=max(f[i,j],w[head]+a[i].p*j);end;end;writeln(f[n,l]); end.

　　

轉載于:https://www.cnblogs.com/reflec94/archive/2011/10/20/2218431.html

總結

以上是生活随笔為你收集整理的poj 1821 fence的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。