Memleketim, Rhyl , mümkün olduğunca uzun uzağa gidecekleri insanları korumak için tasarlanmış gibi görünüyor tek yönlü trafik sistemi vardır. Göreviniz, bunu denemeyi seçerseniz, böyle bir trafik sistemi üzerinden en kısa yolu verecek bir program üretmektir.

Giriş

Girdi açık olacak STDINve başlangıç ​​ve bitiş noktalarının bir listesi ve ardından boş bir satır ve ardından aşağıdaki gibi bir sorgu listesi olacaktır:

A B
B A
B C
C D
D C

A D
C A
B A

Her yol sadece verilen yönde ilerleyebilir, bu nedenle yukarıdaki örnekte A - B yolu iki yönlü bir sokak iken B - C B'den C'ye tek yönlü bir sokaktır. yasak.

Başlangıç ​​ve bitiş noktalarının tümü tek bir büyük harfle temsil edilecektir.

Çıktı

Çıktı, alınan her sorgu için verilen başlangıç ​​noktasından belirli bir bitiş noktasına kadar olan en kısa yol olmalıdır (ziyaret edilen nokta sayısı ile ölçülür). Böyle bir rota yoksa, boş bir satır verin. Birden fazla kısa rota varsa, en kısa rotaları sözlükbilimsel olarak sıralarken ilk yolu kullanın.

Yukarıdaki örnek için çıktı:

A B C D

B A

Test Scriptleri

Daha önce olduğu gibi Joey ve Ventero tarafından yazılmış senaryolara dayanarak bu görev için testler veriyorum : -

• darbe
• Güç kalkanı

ayrıca yukarıdaki komut dosyalarını kullanamayan herkes için testler ve beklenen çıktı

• Düz metin

Kullanımı: ./test [your program and its arguments]

Ödüller

Açıkçası spec karşılamak ve tüm testleri geçmek golf bazı teşebbüs vardı tüm cevaplar benim oy alacak. 26/01/2012 tarihine kadar en kısa çalışma cevabı kabul edilecektir.

Haskell, 223207 karakter

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 karakter

Tüm ipuçları ve yorumlar hoş geldiniz!

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

Testleri bu formda geçmelidir. Stdin yoluyla besleme girişi, örn python shortestroute.py < test.txt.

C: 450 , 437 , 404 , 390 karakter

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