2010.10.oj记录

最新推荐文章于 2024-09-16 13:39:40 发布

mznanan

最新推荐文章于 2024-09-16 13:39:40 发布

阅读量2.4k

点赞数

分类专栏： oj记录文章标签： 2010 permutation insert 游戏 div function

本文链接：https://blog.csdn.net/mznanan/article/details/5920075

版权

oj记录专栏收录该内容

1 篇文章 0 订阅

订阅专栏

【haoi2008】玩具取名（wa=>ac）

source：bzoj1055

summarize：dp。一开始没有判断无解的情况。

【haoi2008】硬币购物（ac）

source：bzoj1042

summarize：dp+容斥这题我想了一个早上都想不出来。。实在是好题。。

【usaco2008 oct】牧场行走（ac）

source：bzoj1602

summarize：最小生成树。。。看到这个词就应该知道这题怎么做了。。

【[spoj 744] longest permutation】(wa=>ac)

source：bzoj1318

summariz：模拟，构造。。这题我一开始是二分长度。。wa了之后自己出了一组数据。发现不行。。。。二分是明显错了。。我囧了。。。

看了题解后才顿悟的。巧妙的题目

对于一个题中要求的数列。必然满足一下条件

A.数列中元素都不同

B.数列中元素和为（q+1)*q/2

c.数列中包含1

所以。。我们从每个1的位置向做搜索。。假设包含这个1的数的。最大值在左边。。。向左扫描的过程中不断更新最大值。。

通过记录前缀和该数后面第一个出现相同的数的位置

设最大值为max。。。向右最早出现相同的数的位置r也不断要更新。。

比如当前到了i。i+max<r 且sum[i+max-1]-sum[i-1]=max*(max+1)/2 可以更新答案。。

program p1318; var tmp,ans,l,r,i,n,mid,tot:longint; h,sum,next,a:array[0..200000]of longint; function min(X,y:longint):longint; begin if x<y then exit(x) else exit(y); end; function max(X,y:longint):longint; begin if x>y then exit(x) else exit(y); end; procedure work(x:longint); var i,q,r:longint; begin r:=next[x]-1; for i:=x+1 to r do r:=min(next[i]-1,r); q:=0; for i:=x-1 downto 1 do begin if a[i]=1 then break; if q<a[i] then q:=a[i]; if i+q-1<=r then begin if sum[i+q-1]-sum[i-1]=q*(q+1) div 2 then ans:=max(ans,q); end; r:=min(next[i]-1,r); end; end; begin readln(n); for i:=1 to n do begin read(a[i]); sum[i]:=sum[i-1]+a[i]; end; for i:=1 to n do h[i]:=n+1; for i:=n downto 1 do begin next[i]:=h[a[i]]; h[a[i]]:=i; end; for i:=1 to n do if a[i]=1 then work(i); for i:=1 to n div 2 do begin tmp:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=tmp; end; for i:=1 to n do h[i]:=n+1; for i:=n downto 1 do begin next[i]:=h[a[i]]; h[a[i]]:=i; end; for i:=1 to n do sum[i]:=sum[i-1]+a[i]; for i:=1 to n do if a[i]=1 then begin if 1>ans then ans:=1; work(i); end; writeln(ans); end.

【usaco 2010 open 奶牛的跳格子游戏】(wa*2=>ac)

source：bzoj1915

summarize:dp+单调队列优化这题因为跳过去没什么限制。跳回来有要求。。如果直接顺着做。。貌似不知道如何做。。所以我们倒着来

f[i]表示倒着跳回来到第i格的最优值。

f[i]:=max(f[j]+sum[j-1]-sum[i-1]+a[i]+a[i+1]) ...sum表示非0的数的和。。。j (i+1,i+m]

注意到0的时候可以直接跳。。不一定要取前面的。。

就是

f[i]:=max(f[j]+sum[j-1]-sum[i-1]+a[i]) i=0

答案是

f[0]和f[1]中比较大的那个（因为1可以直接跳到0）

program p1915; const maxn=250000+10; var f,a,s:Array[0..maxn]of int64; q:array[0..maxn]of record pos,num:int64;end; h,l,n,m:longint; procedure init; var i:longint; begin readln(n,m); for i:=1 to n do read(a[i]); for i:=1 to n do begin if a[i]>0 then s[i]:=s[i-1]+a[i] else s[i]:=s[i-1]; end; end; procedure insert(i:longint); begin while (f[i]+s[i-1]>q[l].num)And(h<=l) do dec(l); inc(l); q[l].num:=f[i]+s[i-1]; q[l].pos:=i; end; function max(X,y:int64):int64; begin if x>y then exit(x) else exit(y) end; function min(x,y:int64):int64; begin if x<y then exit(x) else exit(y); end; procedure main; var i:longint; begin h:=1;l:=1; f[n]:=a[n]; for i:=n-1 downto 0 do begin if i=1 then begin f[i]:=0; end; f[i]:=max(a[i],a[i+1]+a[i]); while (h<l)and(q[h].pos>i+m) do inc(h); if h<=l then if i>0 then f[i]:=max(f[i],q[h].num-s[i+1]+a[i]+a[i+1]) else f[i]:=max(f[i],q[h].num-s[i+1]+a[i]+max(0,a[i+1])); insert(i+1); end; writeln(max(f[0],f[1])); end; begin init; main; end.

【usaco2010 jan telephone】（wa*3=>ac)

source：bzoj1785

summarize：tree dp 每个节点最多支持m个通话，我一开始把背包开到了2*m+1。。。这样应该是m+1个

program p1785; {$m 100000000} const inf=maxlongint shr 1; var i,tot,n,m,k:longint; t:boolean; f:array[0..100000,0..1]of longint; d,first:array[0..100000]of longint; bian:array[0..200000]of record x,y,next:longint;end; v:array[0..100000]of boolean; dp:array[0..20]of longint; procedure connecT(a,b:longint); begin inc(tot); with bian[tot] do begin x:=a; y:=b; nexT:=first[x]; first[x]:=tot; end; end; procedure init; var i,x,y:longint; begin readln(n,m); for i:=1 to n-1 do begin readln(x,y); inc(d[x]); inc(d[y]); connect(X,y); connect(y,x); end; end; procedure updata(var x:longint;y:longint); begin if y>x then x:=y; end; procedure dfs(X,xx:longint); var i,j,k:longint; begin k:=first[x]; v[x]:=true; while k<>0 do with bian[k] do begin if y<>xX then begin dfs(y,x); end; k:=next; end; dp[0]:=0; for i:=1 to 2*m do dp[i]:=-inf; k:=first[x]; while k<>0 do with bian[k] do begin if y<>xX then for j:=m*2 downto 0 do begin if dp[j]<>-inf then dp[j]:=dp[j]+f[y,0]; if (j>0)And(dp[j-1]<>-inf) then updata(dp[j],dp[j-1]+f[y,1]); end; k:=next; end; for i:=0 to m*2 do if dp[i]<>-inf then updata(f[x,i mod 2],dp[i]+i div 2); end; begin init; for i:=1 to n do if d[i]<>1 then begin dfs(i,0); t:=true; break;end; if t then writeln(F[i,0]) else writeln(1); end.

【usaco2010 mar gather】（wa=>ac)

source：bzoj1827

summarize：基础的treedp。。一开始最大值赋小了

【balance】(wa*2=>ac)

source：bzoj2022

summarize：基础的dp。。。要开int64，。。一开始在pku ac了直接交就 wa了- -。。囧

【cqoi2007 余数之和】（wa=>ac)

source：bzoj1257

summarize：直接一遍扫过去。。对于同样除完后的得数。。余数必然成公差为除数的等差数列、、一开始把k写成n。。

【poi2009 石子游戏kam】（ac)

source:bzoj 1115

summarize：这题再fj省队集训时候听过。。转换成nim游戏