Ma ville natale, Rhyl , a un système de circulation à sens unique qui semble avoir été conçu pour éloigner les gens de leur destination aussi longtemps que possible. Votre tâche, si vous choisissez de l'essayer, est de produire un programme pour donner l'itinéraire le plus court à travers un tel système de circulation.

Contribution

L'entrée sera activée STDINet sera une liste de points de début et de fin suivie d'une ligne vierge suivie d'une liste de requêtes, comme suit:

A B
B A
B C
C D
D C

A D
C A
B A

Chaque route ne peut être parcourue que dans la ou les directions données, donc, dans l'exemple ci-dessus, la route A - B est une rue à double sens tandis que B - C est une rue à sens unique de B à C. Voyager de C à B est interdit.

Les points de départ et d'arrivée seront tous représentés par une seule lettre majuscule.

Production

La sortie doit être l'itinéraire le plus court (mesuré par le nombre de points visités) du point de départ donné au point final donné pour chaque requête reçue. Si aucune route de ce type n'existe, affichez une ligne vierge. S'il existe plusieurs itinéraires les plus courts, sortez le premier lors du tri de tous les itinéraires les plus courts lexicographiquement.

Pour l'exemple ci-dessus, la sortie serait:

A B C D

B A

Scripts de test

Comme précédemment, je fournis des tests pour cette tâche sur la base de scripts écrits par Joey et Ventero : -

• Frapper
• PowerShell

et également des tests et des résultats attendus pour quiconque ne peut pas utiliser les scripts ci-dessus

• Texte brut

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

Récompenses

Toutes les réponses qui ont évidemment eu une tentative de golf qui répondent aux spécifications et réussissent tous les tests obtiendront mon vote positif. La réponse la plus courte au plus tard le 26/01/2012 sera acceptée.

Haskell, 223 207 caractères

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

Python (2.x), 382 369 358 338 323 318 caractères

Tous les conseils et commentaires sont les bienvenus!

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))

Devrait passer les tests sous cette forme. Entrée de flux via stdin, par exemple python shortestroute.py < test.txt.

C: 450 , 437 , 404 , 390 caractères

#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);
}