Prolog-Das Haus des Nikolaus

Aus ProgrammingWiki

Archivierte Version vom 2013-02-23T22:33:16+00:00. Aktuelle Version

Vollständige Strecken

%Festlegung des Graphen (Nikolaushaus)
kante(a,b). kante(b,c). kante(c,d). kante(d,e). kante(e,a).
kante(b,d). 
kante(a,d). kante(e,b).

verbunden(A,B):-kante(A,B).
verbunden(A,B):-kante(B,A).

%Rundstrecke mit Tiefensuche
tstrecke(Route,Weg):-
	Route=[Anfang|_],
	findall([A,B],
		(kante(A,B),element(A,Route),element(B,Route)),
		Strecken),
	tsuche(Anfang,[Anfang],Weg,Strecken).

%Tiefensuche
tsuche(Knoten,Weg,Weg,[]):-!.
tsuche(Knoten,Teilpfad,Weg,Strecken):-
	verbunden(Knoten,NKnoten),
	teilliste([Knoten,NKnoten],Strecken),
	streichliste([Knoten,NKnoten],Strecken,NStrecken),
	tsuche(NKnoten,[NKnoten|Teilpfad],Weg,NStrecken).

%Tiefensuche nach allen moeglichen Rundstrecken
tsuche_alle(Route):-
	findall(Weg,tstrecke(Route,Weg),Liste),
	ausgabe(Liste).

tsuche_alle([a,b,c,d,e]).

Prolog-Das Haus des Nikolaus

Vollständige Strecken

Suche