能给个比较快的dijk+heap代码么？ - Vijos

分享
liumengyun LV 8 @ 2010-03-27 12:06:30

额……我每次写dijk+heap都TLE。

各位大牛们能给个比较快的dijk+heap的pascal代码么？（普通的heap就行了）

谢谢。

感激不尽。

尖端才子 LV 10 @ 2010-03-27 12:06:30

见我的博客……地址如下：

http://hi.baidu.com/tgrwfskq/blog/item/ab4defccd890831c01e92882.html

前几天做POJ时刚写的……Dij+Heap
XFLpear LV 6 @ 2010-03-26 19:50:53

Hey!

Hey!

真不错！
SDreaming LV 10 @ 2010-03-17 09:19:12

...

Orz。。。什么题目啊。居然能让dijk+deap过不了。。。

我不是大牛，我的dijk+deap也不快。。凑合着看吧。。

是一题的程序。。多余的处理可以忽略。。。

type node=record

o,c,next:longint;

end;

var n,m,x,y,z,i,j,t,k,ans,len:longint;

p,q,g,a:array[1..50000]of longint;

d:array[1..200000]of node;

dist:array[1..6,1..50000]of longint;

b:array[1..5]of longint;

s:array[2..6]of boolean;

ss:array[1..50000]of boolean;

procedure down(num,l,n:longint);

var i,j,x,xp:longint;

begin

i:=l;j:=l*2;x:=dist[num,p[l]];xp:=p[l];

while j