Schulprojekt - Problem mit ProLog

Dreamwatcher

Hallo Liebe community,
Ich habe zz das thema ProLog in Informatik und mein Problem ist folgendes.

Ich bin ein bisschen weiter als die aus meinem Kurs. Die basteln zur Zeit an diesem

Code

SEND
+ MORE
=MONEY

rum.

Nun ich soll das nun Rekursiv machen. Das heißt dass es egal ist wieviele Zeichen zusammen addiert werden.

Ich habe mir überlegt dies mit Listen zu machen. ich schreibe einfach mal den Quelltext hin:

Code

%anhaengen(L1,L2,L12) Liste L2 hinten an Liste L1 angehaengt ergibt Liste L12.


anhaengen([],L,L).
anhaengen([K|Rest1],L2,[K|Rest2]) :- anhaengen(Rest1,L2,Rest12).


%umkehren(Liste_u,Liste) Liste_u ist die umgedrehte Version von Liste.


umkehren([],[]).
umkehren([K|Rest_u],Liste :- anhaengen(Rest,[K],Liste),
                                           umkehren(Rest_u,Rest),!.

Alles anzeigen

nun habe ich schonmal herausgefunden wie lang die Listen sind (bzw die Wörter die ich addieren will).

Nun mein problem... wie kann ich nun mit Listen komfortabel Addieren. Oder kann mir jemand den Quellcode vllt schonmal zu Ende schreiben?
Ich bin doch grade ein bisschen überfordert damit...
vielen Dank im vorraus.
MfG
Dreamwatcher

The User

Code

anhaengen([],L,L).
anhaengen([K|Rest1],L2,[K|Rest2]) :- anhaengen(Rest1,L2,Rest2).
%am Ende ist dann Rest1=[] und Rest2=L2, und die erste Zeile kommt zum Zug


letzteselementsplitt([K],K,[]).
letzteselementsplitt([K|Rest],M,[K|Rest2]) :- letzteselementsplitt(Rest,M,Rest2).
%diese Regeln könnten noch mal recht praktisch sein: sie spalten nicht das erste- wie bei [H|T], sondern das letzte ab!


umkehren([],[]).
umkehren([Mitte],[Mitte]).
umkehren([K|Rest],Liste) :- letzteselementsplitt(Liste,K,Anfang),umkehren(Rest,Anfang).
%Es werden immer die äußeren genommen und abgespalten.

Alles anzeigen

So, da sind auch Kommentare, bitte!

Mit freundlichen Grüßen
The User

Tags