nike0good |Oier&ACMer | 熟能生巧

有所作为是生活中的最高境界。

POJ 1868(等差数列)

暴力模拟无算法 Program P1868; Var c:char; n,i,j,k:longint; a:array[0..10000] of longint; function is_ant:boolean; var i,j,k:longint; begin ...

2012-08-31 20:31:27

阅读数 819

评论数 0

POJ 1088(滑雪)

标准记忆化搜索 模板题 Program P1088; var ans,n,m,i,j:longint; a,f:array[0..101,0..101] of longint; function max(a,b:longint):longint; begin if a&...

2012-08-31 17:55:09

阅读数 661

评论数 0

POJ 1830(位运算+双向DFS)

此题也可用GE做,可是我不会矩阵乘法…… Program P1830; const maxn=28; maxf=100007; none=-2139062144; var ans,tt,n,i,j,s,t,mid:longint; b:array[1..29...

2012-08-31 15:22:47

阅读数 678

评论数 0

POJ 1276(多重背包)

RT count 表示 第i种面额在f[j] 放的数量 Program P1276; const maxn=20; maxcash=1000000; var cash,n,i,j:longint; cost,d:array[1..maxn] of longint...

2012-08-28 22:02:46

阅读数 953

评论数 0

POJ 3169(带起点的拆分约束)

这次的拆分约束有明显的起点。 拆分等式 Xb-Xa      Xa-Xb Program P3169; const maxml=10000; maxn=1000; var n,ml,md,i,j:longint; a,b:array[1..maxml,1..3...

2012-08-28 20:13:02

阅读数 1678

评论数 0

POJ 2942(Tarjen的点双连通分量+交叉染色法)

这题是点双连通分量,我一开始写成边的…… 首先点双连通分量可能重叠……(1,2) (2,3) (3,1) (3,4) (4,5) (5,6) (3.6) 这时有(1,2,3)和(3,4,5,6)两组双连通分量 故一定要在Tarjen里判……另外Stack存边时注意特判(Stack不能为空) ...

2012-08-28 16:21:34

阅读数 1644

评论数 0

POJ 2186(有向图的强连通分量)[改][Template:SSC/缩点]

题目大意:给有向图G,求图G中有多少点能从所有起点到达 暴搜必T,故本题需要用Tarjen求有向图的强连通分量。 缩点后得DAG(若有环则属同一强连通分量) 由于无环,故这图为树或树的森林 先判断图是否连通,若为森林则无解 否则,判定每个SSC是否有连出的边(由于图无环,故连出的边上的点无法回去)...

2012-08-27 16:08:36

阅读数 2074

评论数 0

HYSBZ 1048(记忆化搜索)

把一个大矩阵分割成n个矩阵,使它们的方差最小。 g[i,j,k,l,path]表示(i,j) 到 (k,l) 的矩阵分割成path个的最小方差,然后暴力搜索+记忆化 O(n^5) (n Program b; const maxn=10; var n,m,i,j,k,l,delta...

2012-08-27 11:41:12

阅读数 758

评论数 0

POJ 3177(带重边的连通图的双连通分量)

题目大意:求带重边的连通图至少加几条边变成双连通图 POJ 3352 +重边 用邻接矩阵的表示无压力 Program P3177; const maxn=1000; maxm=1000; var n,m,i,j,x,y:longint; b:array[...

2012-08-26 21:28:37

阅读数 1217

评论数 0

POJ 3352(Tarjen中Low的性质)

这题做了半天……结果发现自己缩点错了…… 言归正传,这题给了一个无向图G,求添加几条边后双连通…… 做了一上午Tarjen不对……Low就是不满足性质(后来发现这是无向图的,要用有向图版本……——用有向图法做无向图……) 终于……做完了(请忽略Stack,我最后索性直接用Low值了……勉强算...

2012-08-26 21:22:00

阅读数 1163

评论数 0

POJ 2010(二叉堆-入门)

好像这题二分也可以做…… 话说这年头写堆都不用Heapify 函数的? Program P2010; const maxc=100000; maxn=19999; maxaid=100000; maxf=2000000000; type node=record ...

2012-08-26 13:47:53

阅读数 888

评论数 0

POJ 3980(求余)

求余数…… Program P3980; var a,b:longint; begin while not seekeof do begin read(a,b); writeln(a mod b); end; end.

2012-08-25 22:38:51

阅读数 909

评论数 0

POJ 1856(海战)

搜索 此题数据小,不需要状压 Program P1856; var n,m,i,j,ans:longint; c:char; f:array[0..1010,0..1010] of boolean; function find(x,y:longint):boolean;...

2012-08-25 21:45:13

阅读数 696

评论数 0

POJ 1523(求割点)

求割点入门题! ……死调一下午+晚上才发现把‘node'打成’nodes'了…… Program P1523; const maxedge=999000; maxn=10000; var edge,tail:array[1..maxedge] of longint; ...

2012-08-25 21:41:57

阅读数 1278

评论数 0

POJ 2777(涂点问线)

线段树…… Program p2777; const maxl=100000; maxt=30; maxo=100000; var l,t,o,i,j,k:longint; col:array[1..maxl*10] of longint; c:cha...

2012-08-24 15:22:30

阅读数 873

评论数 0

POJ 3100(非二分不合作)

这题的数据太水…… 居然不需要2分Log n查找……尽管我也不知道上限是多少…… Program P3100; var a,b,n,i,j,dis:longint; function pow(a,b:longint):longint; var i:longint; begi...

2012-08-24 12:34:09

阅读数 773

评论数 0

HYSBZ 1079(着色方案)

Dp 神奇的状态转移…… Program fd; const mo=1000000007; var n,i,j:longint; c,tot:array[1..15] of longint; f:array[0..15,0..15,0..15,0..15,0....

2012-08-23 22:15:38

阅读数 499

评论数 0

POJ 1818(贪心)

让每个人每局都与可战胜的人中最强的打,看有无可行解…… Program p1818; var n,x,k,i,j,mid:longint; q:array[1..5100] of longint; f:array[1..5100] of longint; functio...

2012-08-23 22:11:11

阅读数 936

评论数 0

POJ 1363(栈)

此题纯模拟也能过……    我更懒,直接记栈尾元素和已出元素…… Program P1363; var n,i:longint; a:array[1..1000] of longint; b:array[0..1000] of boolean; t:longin...

2012-08-22 21:09:08

阅读数 694

评论数 0

POJ 2828(卡时线段树)

本题乍一看链表,实际上肯定超时%…… 故用线段树 LogN查找…… Program P2828; const maxn=200000; var n,i,j:longint; pos,val:array[1..maxn] of longint; sum:array[1.....

2012-08-22 20:36:43

阅读数 2036

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭