摘要：
各种不解释，建图再拓扑判断是否可行 Var map:array[1..40,1..40,0..9]of longint; g,w:array[1..40,1..40]of longint; v,ind:array[-1..19]of longint; q:array[1..10000]of longint; cz:array... 阅读全文
posted @ 2011-10-14 19:11
NoRush
阅读(198)
评论(0)
推荐(0)
摘要：
POJ1861 & ZOJ1542[Network] ZOJ 1203[Swordfish] POJ 1251[Jungle Roads] POJ2031 & ZOJ1718[Building a Space Station] POJ 2421[Constructing Roads] POJ 2349[Arctic Network] POJ 1789[Truck History] P... 阅读全文
posted @ 2011-10-14 17:44
NoRush
阅读(339)
评论(0)
推荐(0)
摘要：
这个题的样例让我大呼坑爹——竟然把Special Judge上的各种情况融合在了一个样例上……再次Orz 这个题就是个MST，但是题目要求是生成树中的最长边最小，所以要用Kruskal，因为Kruskal的算法保证了最小生成树中的最长边最小。 Var a,b,e,f,optx,opty:array[-1..15100]of longint; n,m,max,ans,... 阅读全文
posted @ 2011-10-14 17:43
NoRush
阅读(272)
评论(0)
推荐(0)
摘要：
开始在各大OJ刷水题。这是一个MST，只是输入数据的时候需要重新构图，其他没什么 p.s. Var a,b,f:array[-1..100000]of longint; e,xx,yy:array[-1..100000]of extended; n,m,cases:longint; sum:extended;Procedure addg... 阅读全文
posted @ 2011-10-14 17:42
NoRush
阅读(259)
评论(0)
推荐(0)
摘要：
还是个MST，不过这个读入数据让用Pascal的童鞋很郁闷的说…… Var a,b,e,f:array[1..100000]of longint; n,m,sum,ans:longint;Procedure addgraph(ch1,ch2:char;cost:longint); begin inc(m); a[m]:=ord(ch1)-6... 阅读全文
posted @ 2011-10-14 17:42
NoRush
阅读(134)
评论(0)
推荐(0)
摘要：
MST，不过这个题用Prim可能会快点，表示我写的Kruskal。 两点之间的距离如果比两点半径和小那么建图时把两点距离置为0，这样就保证了重叠和相交的情况。 Var a,b,f:array[1..11000]of longint; e,x,y,z,r:array[1..10000]of extended; n,ans,m:longint; ... 阅读全文
posted @ 2011-10-14 17:41
NoRush
阅读(256)
评论(0)
推荐(0)
摘要：
不解释的MST，把已经有道路的两个村庄之间建一条长度为0的边，然后Kruskal。我开始是把已经有路的村庄合并，WA了 p.s.这个题的Discuss里面楼要倒了…… Var a,b,e,f:array[1..100000]of longint; n,m,sum,ans:longint;Procedure addgraph(x,y,z:longint); begin... 阅读全文
posted @ 2011-10-14 17:40
NoRush
阅读(195)
评论(0)
推荐(0)
摘要：
这个题Prim是比较快的，用Kruskal要700+ms，幸亏时限是2000ms…… 这个题就是建图之后求最小生成树中第p-s小的那条边，用kruskal比较容易理解~ Var a,b,f,x,y:array[1..1000000]of longint; e:array[1..1000000]of extended; n,m,ans,p,s,fu,i:... 阅读全文
posted @ 2011-10-14 17:36
NoRush
阅读(267)
评论(0)
推荐(0)
摘要：
要使派生方案的优劣值最大，分母的值肯定取到最小。另外，要考虑到所有类型对(t0,td)的距离，使得最终派生方案中每种卡车类型都是由其他一种卡车类型派生出来的（最初的卡车类型除外）。这样，如果将每种卡车类型理解成一个无向网中的顶点，所要求的最佳派生方案就是求最小生成树，而分母就是最小生成树的权值。 这个题我用Kruskal TLE了无数次……最后终于鼓起勇气写了Prim。 Const... 阅读全文
posted @ 2011-10-14 17:35
NoRush
阅读(151)
评论(0)
推荐(0)
摘要：
果断Prim不解释。其实Kruskal也可以，刚开始写的时候鉴于内存没敢写。 Const maxn=750;Var codes:array[1..maxn,1..2]of longint; d:array[1..maxn,1..maxn]of longint; lowcost,pre:array[1..maxn]of longint; ... 阅读全文
posted @ 2011-10-14 17:27
NoRush
阅读(201)
评论(0)
推荐(0)
摘要：
这个是个水得不能再水的MST，可是我还WA了两次，原因如下 1.没有看到The input includes several cases. 2.把调试用的无用信息输出到了结果里（呃……脑残了） 引以为戒~~~~~ Const maxn=500;Var codes:array[1..maxn,1..2]of longint; d:arr... 阅读全文
posted @ 2011-10-14 17:26
NoRush
阅读(158)
评论(0)
推荐(0)
摘要：
POJ1122 & ZOJ1053[FDNY to the Rescue!] POJ1511 & ZOJ2008[Invitation Cards] POJ2240 & ZOJ1092[Arbitrage] 博客里都有题解，这里就不加穿越了吧~ 阅读全文
posted @ 2011-10-14 17:25
NoRush
阅读(178)
评论(0)
推荐(0)
摘要：
这道题好BT的数据,竟然有两个点距离为0的情况…… 大体意思就是说计算每个消防站离火警位置的最短距离并且输出路径，注意输出的格式为time递增并且中间用tab缩进~ 同时说明，ZOJ的编译器版本会输出CE，不知道为神马……还有ZOJ是有多组数据的 Constmaxn=100;Typelzy=array[0..maxn,0..maxn]of longint;zj=array[0..maxn]o... 阅读全文
posted @ 2011-10-14 17:24
NoRush
阅读(338)
评论(0)
推荐(0)
摘要：
这个题目的意思便是求两遍最短路~Const maxn=1000100; Var sa,sb,se,a,b,e,f,q:array[1..maxn*2]of int64; vis:array[1..maxn*2]of boolean; dis:array[1..maxn*2]of int64; n,m,k,i,j:longint; sum:qword; Procedure init; ... 阅读全文
posted @ 2011-10-14 17:21
NoRush
阅读(204)
评论(0)
推荐(0)
摘要：
这个题目是给你一些货币及其汇率，计算是否存在套汇的嫌疑。Bellman-Ford水之~ Program Arbitrage;Varst:array[-1..300]of string;e,dis:array[-1..6000]of extended;a,b:array[-1..6000]of longint;n,m,tot,i,fu:longint;flag:boolean;Func... 阅读全文
posted @ 2011-10-14 17:20
NoRush
阅读(239)
评论(0)
推荐(0)
摘要：
Type lzy=record zx,zy,yx,yy,color:longint; end;Const maxn=100000;Var q:array[-1..maxn]of lzy; use:array[-1..maxn]of boolean; ans:array[-1..2500... 阅读全文
posted @ 2011-10-14 14:51
NoRush
阅读(250)
评论(0)
推荐(0)
摘要：
POJ3026 阅读全文
posted @ 2011-10-14 14:40
NoRush
阅读(163)
评论(0)
推荐(0)
浙公网安备 33010602011771号