[SGU 103]Traffic Lights(最短路问题变形)

【题目大意】：

说有一个道路网络，有N个路口，每个路口一个灯——交替地变成蓝色和紫色。当且仅当一条路连接的两个路口的灯的颜色是一样的时候才能通行，问S到T的最短路~

【题目分析】：

这个题好恶心，想了好长时间，一直觉得这个东西应该是个动态规划。但是后来看了WindyWinter神牛的题解，觉得豁然开朗，原来这个题就跟正常的最短路一样。直接套用Dijkstra就可以了，但是我们这回还要算上中间在一个路口等的时间。

写的时候有很多细节要注意，因为想得比较全面，所以这回这个题是1A。后来想想也挺简单的了。

这里给下我看的解题报告：http://www.briefdream.com/sgu-103/

【代码】：

program Project1; const inf=1000000; type ttype=record co,rc,tb,tp:longint; end; var s,t,n,m,i,j,minj,min,x,y,w,tmp,now:longint; ch:char; a:array[1..300]of ttype; g:array[1..300, 1..300]of longint; pre,dis: array[1..300]of longint; v:array[1..300]of boolean; procedure print(x:longint); begin if x=s then begin write(x); exit; end; print(pre[x]); write(' ',x); end; function min2(x,y:longint):longint; begin if x<y then min2:=x else min2:=y; end; procedure getcolor(now,x:longint;var cx,tx:longint); begin if now<a[x].rc then begin cx:=a[x].co; tx:=a[x].rc-now; exit; end; now:=now-a[x].rc; now:=now mod (a[x].tb+a[x].tp); if a[x].co=1 then if now<a[x].tp then begin cx:=0; tx:=a[x].tp-now; end else begin cx:=1; tx:=a[x].tb+a[x].tp-now; end else if now<a[x].tb then begin cx:=1; tx:=a[x].tb-now; end else begin cx:=0; tx:=a[x].tb+a[x].tp-now; end; end; function wait(now,a,b:longint):longint; var ca,cb,ta,tb,ans:longint; begin getcolor(now,a,ca,ta); getcolor(now,b,cb,tb); if ca=cb then begin wait:=0; exit; end; ans:=min2(ta,tb); now:=now+ans; getcolor(now,a,ca,ta); getcolor(now,b,cb,tb); if ca=cb then begin wait:=ans; exit; end; ans:=ans+min2(ta,tb); now:=now+min2(ta,tb); getcolor(now,a,ca,ta); getcolor(now,b,cb,tb); if ca=cb then begin wait:=ans; exit; end; wait:=-1; end; begin assign(input,'a.in'); assign(output,'a.out'); reset(input); rewrite(output); readln(s,t); readln(n,m); for i:=1 to n do begin read(ch); if ch='B' then a[i].co:=1 else a[i].co:=0; readln(a[i].rc,a[i].tb,a[i].tp); end; for i:=1 to m do begin readln(x,y,w); g[x,y]:=w; g[y,x]:=w; end; fillchar(dis,sizeof(dis),$FF); fillchar(v,sizeof(v),0); dis[s]:=0; for i:=1 to n-1 do begin min:=inf; for j:=1 to n do if (dis[j]<>-1) and (not v[j]) and (min>dis[j]) then begin min:=dis[j]; minj:=j; end; v[minj]:=true; if minj=t then break; for j:=1 to n do begin if g[minj,j]=0 then continue; now:=wait(dis[minj],j,minj); if now=-1 then continue; tmp:=now+dis[minj]+g[minj,j]; if ((tmp<dis[j]) or (dis[j]=-1)) and (not v[j]) then begin dis[j]:=tmp; pre[j]:=minj; end; end; end; if dis[t]<>-1 then begin writeln(dis[t]); print(t); writeln; end else writeln(0); close(input); close(output); end.