POJ2018 Best Cow Fences——二分答案+贪心（动态规划）求最大子段和——pku2018

可以转换成二分答案求最大连续子段和来做。

每次在a[i]的基础上减去二分出来的答案。

求出长度不小于f的最大连续子段和。如果大于0，则调整下边界，否则调整上边界。

求长度不小于f的最大连续子段和需要一些小技巧，比如说判断以i为终点的连续子段和，就可以看sum[i]-sum[i-f]+dp[i-f]的正负。其中dp[i]表以i为终点的最大连续子段和。具体见代码。

Program cowfnc;//By_Thispoet
Const
	maxn=100005;
Var
	i,j,k,m,n,f,ans					:Longint;
	l,r,mid							:Longint;
	a,dp,sum,b						:Array[0..maxn]of Int64;
	
Function Max(i,j:Longint):Longint;
begin
	if i>j then exit(i);exit(j);
end;

	
Function Check(i:Longint):Boolean;
var j,k:Longint;
begin
	for j:=1 to n do b[j]:=a[j]-i;
	for j:=1 to n do dp[j]:=Max(0,dp[j-1]+b[j-1]);
	for j:=1 to n do sum[j]:=sum[j-1]+b[j];
	for j:=1 to n-f+1 do
		if sum[j+f-1]-sum[j-1]+dp[j]>=0 then exit(true);
	exit(false);
end;


BEGIN

	readln(n,f);
	r:=0;
	for i:=1 to n do
		begin
			readln(a[i]);
			a[i]:=a[i]*1000;
			r:=Max(r,a[i]);
		end;

	l:=0;
	while l<=r do
		begin
			mid:=(l+r)>>1;
			if check(mid) then
				begin
					ans:=mid;
					l:=mid+1;
				end else r:=mid-1;
		end;
	writeln(ans);

END.