Shortest route through a one-way system

Question

My home town, Rhyl, has a one-way traffic system which seems to have been designed to keep people away from their destination for as long as possible. Your task, should you choose to attempt it, is to produce a program to give the shortest route through such a traffic system.

Input

Input will be on STDIN, and will be a list of start and end points followed by a blank line followed by a list of queries, as follows:

A B
B A
B C
C D
D C
A D
C A
B A

Each road can only be travelled in the direction(s) given, so, in the above example the road A - B is a two way street whereas B - C is a one-way street from B to C. Travelling from C to B is prohibited.

Start and end points will all be represented by a single upper-case letter.

Output

Output should be the shortest route (measured by number of points visited) from the given start point to the given end point for each query received. If no such route exists, output a blank line. If more than one shortest route exists, output the first when sorting all shortest routes lexicographically.

For the above example the output would be:

A B C D
B A

Test Scripts

As before I'm providing tests for this task based on scripts written by Joey and Ventero:-

• Bash
• PowerShell

and also tests and expected output for anyone who can't use the above scripts

• Plain text

Usage: ./test [your program and its arguments]

Rewards

All answers which have obviously had some attempt at golfing that meet the spec and pass all the tests will get my upvote. The shortest working answer by 26/01/2012 will be accepted.

• Mr. Llama: output the first when sorting all shortest routes lexicographically - So if A B D and A C D are both valid solutions, output A B D instead?
• Gareth: @GigaWatt Yes, that's right.
• Peter Taylor: This is awfully close to a duplicate of codegolf.stackexchange.com/questions/3474/…
• Gareth: @PeterTaylor Why didn't you raise that while it was in the question sandbox? What do you suggest? I could delete it while there are no answers on it, I suppose?
• Peter Taylor: @Gareth, because for once there was activity on a few threads on meta at the same time, and I didn't notice that there was a new reply in the question sandbox. Deletion is one possibility; or you could extend it to weight the edges - we haven't had a directed Dijkstra question yet.

Answer 1

Haskell, (削除) 223 (削除ここまで) 207 characters

main=interact$unlines.f.break null.map words.lines
s%[f,t]=[[f]]#t where[]#_="";x#t|y@(_:_)<-[z|z<-x,last z==t]=unwords$minimum y|1<3=s&x#t
s&z=[x++[b]|x<-z,[a,b]<-s,last x==a,notElem b x];f(s,_:q)=map(s%)q

Answer 2

Python (2.x), (削除) 382 (削除ここまで) (削除) 369 (削除ここまで) (削除) 358 (削除ここまで) (削除) 338 (削除ここまで) (削除) 323 (削除ここまで) 318 characters

All tips and comments welcome!

import os;u=str.split;l=u(os.read(0,1e9),'\n')
p,g,c=l.index(''),{},map;o=g.setdefault
def f(g,s,e,q=[]):q=q+[s];y=([],[q])[s==e];[c(y.append,f(g,n,e,q))for n in set(o(s,[]))-set(q)];return y
for k,v in c(u,l[:p]):o(k,[]);g[k]+=v
for w,e in c(u,l[p+1:]):h=sorted(f(g,w,e));print''if not h else' '.join(min(h,key=len))

Should pass the tests in this form. Feed input via stdin, e.g. python shortestroute.py < test.txt.

• Gareth: Seems to fail query 2 of test 4. Returns A B I J M instead of A B G J M.
• ChristopheD: @Gareth: there was indeed a small bug considering lexographical sort of similar length solutions, should be fixed now...

Answer 3

C:(削除) 450 (削除ここまで),(削除) 437 (削除ここまで),(削除) 404 (削除ここまで),390 characters

#include<stdio.h>
#include <string.h>
r[99][99],p[99],q[99],m[99],i,j,x,y,s;
char t[9],e[9999];
F(k)
{
 m[k]^s?r[p[k]=q[i]][k]?m[q[j++]=k]=s:0:0;
 if(++k<99)F(k);
}
f()
{
 F(0);
 if(++i^j)f();
}
P(o)
{
 if(p[o])P(p[o]);
 *t=m[o]^s?0:o;
 strcat(e,t);
}
w()
{
 gets(t);
 r[*t][t[2]]=*t?w():0;
}
W()
{
 gets(t);
 x=*t,x?y=t[j=2],s=x+y*99,m[q[t[2]=i=p[x]=0]=x]=s,f(),P(y),strcat(e,"\n"),W():0; 
}
main()
{
 w();
 W();
 puts(e);
}

• J B: puts("\n") prints two newlines. puts() automatically adds an end-of-line terminator to the strings it prints. To avoid that behavior, use fputs(str, stdout) or simply printf(str).
• Gareth: Bends the rules slightly - should take all the input in one go and then output all the answers to the queries in one go. I'll +1 it because it works fine (and found mistakes in the tests), but I won't be able to accept it over a longer program that fully complies with the input/output requirements.
• Ali1S232: @Gareth: fixed. though, answer output should not be as longer than 9999 characters!