- 博客(24)
- 收藏
- 关注
RSS订阅原创 POJ 1611(并查集）
唯一的WA是把0的父亲当成祖先father[x]和getfather(x)差别巨大啊Program p1611;const maxn=30010; maxm=500;var n,m,i,j,k,p1,p2,ans,f0:longint; father:array[0..maxn] of longint;function getfather(x:lo
2012-09-30 21:11:47
923
原创 POJ 2271(HTML)
这题字符串处理注意Seekeof会自动把后面的空格吃掉（有时遇到回车，后面会漏一个空格……貌似有时没空格也会读到，字符串处理时慎用）另外 空格的Ascii码是32，31及以下都是不可输入字符program P2271;var s:string;procedure cin;var c:char; i,len:longint;begin s:
2012-09-29 14:02:50
888
原创 POJ 1700(过河问题）
玩过《雷顿》就知道这题可以贪心小等于2人：1,2->3人时：1,3->11,2->1否则：1，2->2max1,max2->1OR：1,max1->12,max2->2于是数据规模-2Program P1700;var t,n,i,j:longint; l,r:longint; a:arra
2012-09-29 13:55:17
793
原创 POJ 1125(Floyd）
裸FloydProgram P1125;const maxn=100; maxedge=10; NULL=-2139062144;var n,i,j,k,m,v,t,ans:longint; f:array[1..maxn,1..maxn] of longint;function max(a,b:longint):longint;begin
2012-09-28 17:41:59
1199
原创 POJ 3842(质数判断）
7！=5040所以这题直接求质数比打一千万的表都快这提高诉我们阶乘其实不算大&看（算）清数据规模Program cc;var n,t,len,i,j,ans:longint; s:string; b:array[0..9] of longint;procedure dfs(p,l:longint);var i:longint;begin i
2012-09-24 21:34:33
1090
原创 CF 187A(从后取数的重排数列）
题目大意：一串数，每次把最后那个数挪到前面任意位置，就最少挪动次数显然一个数最多挪一次（只能从后取的话，插2次的一定能变成1次）因此找最后挪动的数即可，最后挪动的数即由于与下序列的连线与之前的交叉，其它数无论怎么挪都无法影响到它）Program DD;const maxn=200000;var n,i,j,l,r:longint; a,b,hposa,hp
2012-09-23 22:17:20
957
原创 POJ 2588(解析几何+并查集）
题目就是早从左到右的路注意输入的实数这题图画好就行，别像我一开始把图弄反就成从上开始找，若找到一个与下边界相邻的就无解，找到与左边相邻的记圆与左边界相交的下边的点（相当于左上角挖去一块），右边同理。Program snake;const maxn=1000;var n,i,j:longint; x,y,r,lc,rc:array[1..maxn]
2012-09-23 19:36:30
970
原创 POJ 3122(二分答案）
二分答案……Program pie;const lef=0.00001;var t,n,f,i,j:longint; r:array[1..10000] of longint; s:array[1..10000] of double; maxs:double;procedure sort(l,r:double);var m:real;
2012-09-23 16:06:52
1472
原创 POJ 3844(同余）
果断同余……D[j]-D[i] mod k =0D[j]=D[i]求有多少相等数对，用队列O(n)Program P3844;const maxn=50000; maxd=1000000;var ans,t,f,n,i,j:longint; d:array[0..maxn] of longint;procedure qsort(l,r:lo
2012-09-23 16:04:44
1365
原创 POJ 2184(01背包+滚动数组）
01背包 模板题Program dd;const maxn=1000; maxv=100000; minv=-100000; NULL=-2139062144;var n,i,j,ans,p,np:longint; ts,tf:array[1..maxn] of longint; f:array[0..1,minv..maxv] of
2012-09-22 14:28:04
787
原创 POJ 2110(最小生成树）
这题的思路就是找一个范围，看看这个范围是否可行主流是二分Ans，我是先把点排序，求最小生成树检查首位的Program P2110;type ed=record u,v,w:longint; end;var a:array[1..120,1..120] of longint; edge:array[0..30000] of ed;
2012-09-21 17:52:40
871
原创 POJ 1952（最长不下降子序列的个数）
求一个序列的最长不下降子序列的长度，与个数（相同数列算1个）关键是如何判重。显然如果之前有一个尾数相同且长度相同的序列，哪么后一个包含前一个所有可能的序列相同的序列，故将前一个序列删除（重复)Program P1952;var n,i,j,ans:longint; a,len,f,path:array[1..5000] of longint;begin
2012-09-15 22:52:59
1293
原创 POJ 1951（空串特判）
这题的教训是 要特判空串Program P1951;var s:string; len,i,j:longint; b:array[0..10000] of boolean;function isdight(x:longint):boolean;begin if (x>=65) and (x<=90) then exit(false); if (x
2012-09-15 17:39:09
2557
原创 POJ 1950(不打表做法）
这题就是搜……注意设定maxn 要不然肯定爆 maxn=1*10^最大位数/2 1234..89-11121314这样的Program aa;const maxn=1000000000000000;var n,t:longint; a:array[1..15] of char;procedure dfs(l,sum,res,bl:int64);var i,j
2012-09-15 17:36:55
819
原创 POJ 3278(BFS-搜索范围）
这题是BFS水的主要是范围0半天功夫才A.program P3278;const maxn=200000;var n,k,i,j:longint; q,deep:array[1..maxn] of longint; b:array[0..maxn] of boolean;procedure add(x:longint);begin if
2012-09-15 13:24:51
1081
原创 POJ 3256(SPFA）
这题只能对每一个点查一遍……有向图的话能用floyd，可是迫于时限用了SPFA。Program aa;const maxk=10000; maxn=10000; maxm=10000;var k,n,m,i,j,l:longint; a:array[1..maxk] of longint; q:array[1..maxn] of lo
2012-09-15 08:07:41
929
原创 POJ 3692（匈牙利算法）
匈牙利算法：b[]保存当前找交错路P的各点是否已被连通，a[]表示某点之前的点本题的2分图是取最大团（各点互相连通），利用2分图性质，可看成补图的最大独立集（各点互不连通）……Program P3692;const maxn=200;var n,m,l,i,j,k,ans,x,y:longint; b:array[1..400] of boole
2012-09-14 13:53:01
1149
原创 HYSBZ 1050(队列-大小边比值最大的路径）
已知边，判断2点连通性要用并查集……千万别搜啊~Program ee;var edge:array[1..10000,1..3] of longint; s,t,n,m,i,j,pmax,pmin:longint; father:array[1..1000] of longint;procedure swap(var a,b:longint);var
2012-09-11 17:51:54
738
原创 HYSBZ 1616（纯深搜）
题目大意：一张图G，有一些障碍物，求路径长度一定（可环）时的路径总数果断广搜Program ttd;var n,m,t,i,j,k,x1,x2,y1,y2:longint; s:string; b:array[0..101,0..101] of boolean; f:array[0..15,0..101,0..101] of longint;b
2012-09-08 17:12:32
1833
原创 HYSBZ 1601(单点带值的最小生成树）
题目大意：最小生成树建源点0与各点连线的权为建水库的大小。Program aa;var n,i,j,p:longint; u,v,w:array[0..100000] of longint; size,cost:longint; father:array[0..300] of longint;procedure qsort(l,r:longint);v
2012-09-08 17:08:27
875
原创 HYSBZ 1599(狂枚举）
Description贝西喜欢棋盘游戏和角色扮演类游戏所以她说服Farmer John把她带到玩具店，在那里，她购买了三个不同的骰子，这三个质量均匀的骰子，分别有S1,S2,S3个面。(2 Input*第一行：三个由空格隔开的整数：s1,s2,s3Output*第一行：所要求的解Sample Input
2012-09-08 17:05:03
904
原创 POJ 2388(中位数）
求一组数的中位数巨羡慕C党有sort用Program P2388;var n,i,j:longint; a:array[1..10010] of longint;Procedure qsort(l,r:longint);var i,j,m,p:longint;begin i:=l; j:=r; m:=a[(l+r) shr 1];
2012-09-01 17:52:42
1669
原创 POJ 2299(逆序对数）
水题 裸的求逆序对数Program P2299;const maxn=500100;Var tt,i,j,k,n:longint; a,le,re:array[1..maxn] of longint; ans:int64;procedure mergesort(l,r:longint);var i,j,k,mid:longint;begin
2012-09-01 17:35:27
1209
原创 POJ 1804（最小相邻数移动）
题目大意：对乱序列相邻2数移动，使得用最小步数使其有序解法：归并排序定理：一个乱序序列的逆序数 = 在只允许相邻两个元素交换的条件下,得到有序序列的交换次数Program P1804;const maxn=1000;Var tt,i,j,k,n,ans:longint; a,le,re:array[1..maxn] of longint;procedure
2012-09-01 17:11:31
1736
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人