Tausch zweier Elemente (Prolog)

RobsonXL

Hallo,

muss gerade ein Programm in Prolog schreiben. Dabei hänge ich gerade an folgendem Problem. Ich muss zwei Elemente aus einer Liste vertauschen können. Habe aber keine Ideen diesbezüglich, kann mir jemand weiterhelfen?

Vielen Dank...

The User

Hallo,
das hier ist die (eine) Lösung:

Code

%H wie "head", T wie "tail"
nteselementcut([H|T],1,H,[],T).
nteselementcut([H|T],N,Element,[H|T1],Ende) :- M is (N-1),nteselementcut(T,M,Element,T1,Ende).
eltausch(Liste,N,M,GetauschteListe) :- N<M,nteselementcut(Liste,M,F,Davor1,Ende),nteselementcut(Davor1,N,E,Anfang,Mitte),nteselementcut(GetauschteListe,M,E,Davor2,Ende),nteselementcut(Davor2,N,F,Anfang,Mitte).
eltausch(Liste,N,M,GetauschteListe) :- N>M,eltausch(Liste,M,N,GetauschteListe),!.

Die Liste wird ungefähr so geteilt:
Bsp.:
Liste: [a,b,c,d,e,f,g,h,i,j]
N: 3
M: 7
Davor1: [a,b,c,d,e,f]
Ende: [h,i,j]
Anfang: [a,b]
Mitte: [d,e,f]
E: c
F: g

nteselementcut(Liste,N,X,Y) gibt einem von einer Liste das Element Nummer N, den Teil, der davor kommt (X), und den Teil, der danach kommt (Y).
So viel der Erklärung.

Viele Grüße
The User

Tags