У моєму рідному місті, Rhyl , є одностороння система руху, яка, здається, була розроблена таким чином, щоб якомога довше тримати людей подалі від місця призначення. Якщо ви вирішите спробувати це ваше завдання, - створити програму, яка дозволить провести найкоротший маршрут через таку систему руху.

Вхідні дані

Введення буде ввімкнено STDIN, і буде перелік початкових і кінцевих точок з подальшим порожнім рядком і списком запитів таким чином:

A B
B A
B C
C D
D C

A D
C A
B A

Кожну дорогу можна проходити лише в заданому напрямку, тому у наведеному вище прикладі дорога A - B - це двостороння вулиця, тоді як B - C - одностороння вулиця від B до C. Подорож від C до B заборонено.

Початкові та кінцеві точки будуть представлені однією великою літерою.

Вихідні дані

Вихід повинен бути найкоротшим маршрутом (вимірюється кількістю відвідуваних балів) від заданої початкової точки до заданої кінцевої точки для кожного отриманого запиту. Якщо такого маршруту немає, виведіть порожній рядок. Якщо існує більше одного найкоротшого маршруту, виведіть перший при сортуванні всіх найкоротших маршрутів лексикографічно.

Для наведеного вище прикладу вихід буде:

A B C D

B A

Тестові сценарії

Як і раніше, я пропоную тести для цього завдання на основі сценаріїв, написаних Джої та Вентеро : -

• Баш
• PowerShell

а також тести та очікуваний вихід для тих, хто не може використовувати вищевказані сценарії

• Простий текст

Використання: ./test [your program and its arguments]

Нагороди

Усі відповіді, які, очевидно, мали певну спробу гольфу, які відповідають специфікації та пройдуть усі тести, отримають мою оцінку. Буде прийнята найкоротша робоча відповідь до 26.01.2012.

Haskell, 223 207 символів

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 символів

Всі поради та коментарі вітаємо!

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

Слід здати тести у цій формі. Введення подачі через stdin, наприклад python shortestroute.py < test.txt.

С: 450 , 437 , 404 , 390 символів

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