03 2015 档案

bzoj 1207: [HNOI2004]打鼹鼠 （dp）
摘要：var n,m,i,j,ans:longint; x,y,time,f:array[0..10010]of longint; begin readln(n,m); for i:=1 to m do readln(time[i],x[i],y[i]); ans:=1; for i:=1 to m do 阅读全文
posted @ 2015-03-22 22:11 Macaulish 阅读(374) 评论(0) 推荐(0)
bzoj 1037: [ZJOI2008]生日聚会Party （dp)
摘要：dp，但是要顺推容易点 const mm=12345678; var f:array[0..1,0..200,0..20,0..20]of longint; n,m,kk,now,sum,i,j,k1,k2:longint; function max(x,y:longint):longint; be 阅读全文
posted @ 2015-03-22 22:10 Macaulish 阅读(181) 评论(0) 推荐(0)
bzoj 2140: 稳定婚姻 （二分图）
摘要：//==========================蒟蒻Macaulish：http://www.cnblogs.com/Macaulish/转载要声明！//==========================判断二分图中某条路是否是唯一的。网络流做法要加个tarjan二分图就是再增广看能不能增... 阅读全文
posted @ 2015-03-22 22:09 Macaulish 阅读(576) 评论(0) 推荐(0)
bzoj 2424: [HAOI2010]订货 （费用流）
摘要：直接费用流，天数就是点数 type arr=record toward,next,cap,cost:longint; end;const maxm=200000; maxn=200; mm=1=0 do begin too:=edge[i].toward; value:=... 阅读全文
posted @ 2015-03-22 22:07 Macaulish 阅读(340) 评论(0) 推荐(0)
bzoj 3132: 上帝造题的七分钟 （二维树状数组）
摘要：推推公式，最后变成四个东西的前缀和然后不知道为什么一直wa，数据在本地测是没有错的&好心的管理员还给了某位p党大神a了的代码，感人肺腑（虽然还是没发现到底我的程序是问题）var f1,f2,f3,f4:array[0..2500,0..2500]of longint; x1,y1,x2,y2,n... 阅读全文
posted @ 2015-03-22 22:06 Macaulish 阅读(249) 评论(0) 推荐(0)
bzoj 1797: [Ahoi2009]Mincut 最小割 （网络流）
摘要：太神了直接看了hzwer的题解，有个新认识，一条路径上满流的一定是这条路径上所有边的最小值。type arr=record toward,next,cap,from:longint; end;const maxm=200000; maxn=10000;var edge:array[0... 阅读全文
posted @ 2015-03-22 22:03 Macaulish 阅读(206) 评论(0) 推荐(0)
bzoj 1877: [SDOI2009]晨跑 (网络流）
摘要：明显拆点费用流； type arr=record toward,next,cap,cost:longint; end; const mm=1=0 do begin too:=edge[i].toward; value:=edge[i].cost; if (edge[i]... 阅读全文
posted @ 2015-03-22 22:02 Macaulish 阅读(145) 评论(0) 推荐(0)
bzoj 1862: [Zjoi2006]GameZ游戏排名系统 & bzoj 1056: [HAOI2008]排名系统
摘要：傻叉了一晚上，把t打成x，然后这题神奇在于输出一段数，不足的不用输出，一开始我的是直接找没有后面就退，然后这样会格式错误囧……然后最后zj的还卡了下空间，于是不用string就过了……string毁一生……const maxn=250550; mm=2000000;var hash,size,... 阅读全文
posted @ 2015-03-22 22:01 Macaulish 阅读(205) 评论(0) 推荐(0)
bzoj 2431: [HAOI2009]逆序对数列
摘要：简单的递推。const mm=10000; var i,j,n,m:longint; f:array[0..1005,0..1005]of longint; begin readln(n,m); f[1,0]:=1; for i:=2 to n do begin f[i,0]:=1... 阅读全文
posted @ 2015-03-22 22:00 Macaulish 阅读(113) 评论(0) 推荐(0)
bzoj 1934: [Shoi2007]Vote 善意的投票 （最小割）
摘要：原来是赞同的连源，原来是反对的连汇，然后是朋友的就连在一起，这样最小割就是割掉违背和谐的吧type arr=record toward,next,cap:longint; end;const maxm=300000; maxn=700;var first,col,gap,d,cur:... 阅读全文
posted @ 2015-03-22 21:59 Macaulish 阅读(193) 评论(0) 推荐(0)
bzoj 1103: [POI2007]大都市meg （dfs序）
摘要：dfs序，加个bit维护前缀和就行了type arr=record toward,next:longint; end;const maxn=500005;var edge:array[0..maxn]of arr; bit,numin,numout,first,deep:array[... 阅读全文
posted @ 2015-03-22 21:56 Macaulish 阅读(167) 评论(0) 推荐(0)
bzoj 1221: [HNOI2001] 软件开发 （网络流）
摘要：注意说如果直接从每天的新的连向旧的，那整个图的最大流还是不变，答案就一直会是Σni*ftype arr=record toward,next,cap,cost:longint; end;const maxm=3000000; maxn=2200;var edge:array[0..m... 阅读全文
posted @ 2015-03-22 21:55 Macaulish 阅读(262) 评论(0) 推荐(0)
bzoj 3280: 小R的烦恼 （网络流）
摘要：和开发计划一样（数组开太小wa了好多次，然后为什么这么慢？type arr=record toward,next,cap,cost:longint; end;const maxm=200000; maxn=300;var edge:array[0..maxm]of arr; dis... 阅读全文
posted @ 2015-03-22 21:54 Macaulish 阅读(319) 评论(0) 推荐(0)
bzoj 3275: Number （最小割）
摘要：题目的意思是要选一些数，但是这些数如果满足两个条件的话就不能一起被选。type arr=record toward,next,cap:longint; end; const maxn=4000; maxm=300000;var gap,first,cur,d,num1,num2:ar... 阅读全文
posted @ 2015-03-22 21:53 Macaulish 阅读(187) 评论(0) 推荐(0)
【周记：距gdoi43天】
摘要：这个星期切了几道题吧，虽然说还是想让自己搏一搏，但是毕竟自己弱嘛，而且很多东西都还没熟透&不像rausen大神都屠进前100了。加油吧。 阅读全文
posted @ 2015-03-22 21:47 Macaulish 阅读(176) 评论(0) 推荐(0)
退役？再搏一次！
摘要：不知道该说什么。整理了下云去年做的题，果然云的成长才不是偶然，只是他要比我多切109题。三年前在gdoi的评奖厅里，我对着只有10分的成绩说不出话，传统弱校举目无亲，我在一大堆陌生人中哭不出来，就是觉得头晕，就是想逃离。然后由于我颓废的性格导致之后也没什么进步，直到遇到蔡大神，现充+学霸的超级积极的... 阅读全文
posted @ 2015-03-15 02:33 Macaulish 阅读(285) 评论(0) 推荐(0)