Prolog - Suchalgorithmus

[Binni]

Hallo zusammen,

ich stehe gerade vor einem riesigen Problem: ich soll einen Suchalgorithmus mit Prolog programmieren und der nachfolgende Code liefert folgenden Fehler: no sense at line 20 after clause 13

tuer(a,b).
tuer(b,c).
tuer(c,d).
tuer(c,e).
tuer(d,e).
tuer(e,f).
tuer(g,h).
tuer(h,i).

benachbart(X,Y):-tuer(X,Y).
benachbart(X,Y):-tuer(Y,X).

%verbunden(X,X).
%verbunden(X,Y):- benachbart(X,Z), verbunden(Z,Y).

verbunden(X,Y,Ws):- erweitert([X],Ws), write(Ws), nl, endet(Ws,Y).
endet([K|Rs],K).
erweitert(Ls,Ls).
erweitert(Ls,Ms):- dir_erweitert(Ls,Ns), erweitert(Ns,Ms).
dir_erweitert(Ls, [Z|Ls]):- endet(Ls,K), benachbart(K,Z), not element(Z,Ls).
element(X, [X|Rs]).
element(X, [Y|Rs]):- element(X,Rs).

?-verbunden(a,b,Ws).

Kann mir jemand weiterhelfen? Danke im Vorab!

Viele Grüße - der Binni

[seth_not@home]

gudn tach!

meine prolog-kenntnisse sind schon ziemlich verstaubt und waren ohnehin nie besonders gross, aber ich antworte jetzt trotzdem, weil bisher noch niemand anders was dazu gesagt hat.

der nachfolgende Code liefert folgenden Fehler: no sense at line 20 after clause 13

verbunden(X,Y,Ws):- erweitert([X],Ws), write(Ws), nl, endet(Ws,Y).

ist das clause 13? was macht write(Ws)?

prost
seth