ural 1004

这里题目改过了，害我3次才AC

var

bo:boolean;

bool:array[0..100]of boolean;

print:array[0..10000]of longint;

s,a,b,c,i,min,mini,t,n,m,k,j:longint;

mid,g,g2:array[0..100,0..100]of longint;

procedure find(x,y:longint);

begin

if mid[x,y]=-1

then exit;

find(x,mid[x,y]);

inc(t);

print[t]:=mid[x,y];

find(mid[x,y],y);

end;

begin

repeat

t:=0;

bo:=false;

fillchar(print,sizeof(print),0);

fillchar(bool,sizeof(bool),false);

read(n);

if n=-1 then exit;

readln(m);

fillchar(mid,sizeof(mid),255);

fillchar(g,sizeof(g),26);

for i:=1 to m do

begin

readln(a,b,c);

if c

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

100次AC

Floyd求最小环.

ps:第一次交用的cin结果超时 =.=

用删边+最短路算法就可以轻松AC

用 eof !!!!!!!!!!!!

AC了,谢谢楼下各位....

RP测试通过...

├ 测试数据 01：答案正确... -1ms

├ 测试数据 02：答案正确... -1ms

├ 测试数据 03：答案正确... -1ms

├ 测试数据 04：答案正确... -1ms

├ 测试数据 05：答案正确... -1ms

├ 测试数据 06：答案正确... -1ms

├ 测试数据 07：答案正确... -1ms

├ 测试数据 08：答案正确... -1ms

├ 测试数据 09：答案正确... -1ms

├ 测试数据 10：答案正确... -1ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：-10ms

好题啊~~~

正好用来复习Floyed...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一次AC 爽

这题不错,经大牛指点,好方法,膜拜lx

floyd的特殊用法。。。

曼妙的算法=.=

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：210ms

2遍Ac,No solutionNo Solution.气愤

我的删边dijkstra过不了

自己写了一个遍历+剪支竟然只T了一个点

procedure bl(k,now,pre,l:longint);

var

i:longint;

begin

if l>min then exit;

if (now=k) and (l0) then

begin

if min>l then min:=l;

exit;

end;

for i:=1 to map[now,0] do

if (not v[map[now,i]]) and (premap[now,i]) then

begin

v[map[now,i]]:=true;

bl(k,map[now,i],now,l+len[now,i]);

v[map[now,i]]:=false;

end;

end;

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 9ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：9ms

spfa竟然超时！！

很高兴！！

又学会了个东西，不错哦

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 56ms

├ 测试数据 08：答案正确... 25ms

├ 测试数据 09：答案正确... 353ms

├ 测试数据 10：答案正确... 478ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：912ms

readln!!

为什么一定要用readln??

晕倒，要用eof啊

……我的AC率！

可以用删边的最短路，也可以用floyed,第一次碰见这样的题

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 166ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 166ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 88ms

├ 测试数据 10：答案正确... 197ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：617ms

一次AC，fjxmlhx大牛的方法很牛！

首先在不连通i,j情况下算出ans值(因为先要断环)，然后连通i,j(这是FLOYD)；其实相当于枚举一次K做两次FLOYD(一次环，一次完全)。