PROLOG

[efefef]

Γεια σας, εχω ενα θεματακι σε μια εργασια που κανω μπορει να βοηθησει καποιος?

εχω αυτα τα δεδομενα

 

flight(paris,mil,9,8,ba4733,mo).

flight(mil,london,9,10,sr806,mo).

flight(london,asi,11,15,ba4733,mo).

 

και θελω να κανω ενα κατηγορημα route(Place1,Place2,Day,Route), το οποίο να επιστρέφει στη λίστα Route, όλες τις πτήσεις που πρέπει να πραγματοποιήσει κάποιος αν θέλει να ταξιδέψει από την πόλη Place1 στην πόλη Place2 την ημέρα Day της εβδομάδας.

 

?- route(paris,edin,mo,A).

A = [flight(paris,mil,ba4733), flight(mil,london,sr806), flight(london,asi,ba4733)] ;

no

 

εχω κανει τα εξης κατηγορηματα

 

apeuthias_ptisi(X,Y,AN,AF,COD,DAY):-ptisi(X,Y,AN,AF,COD,DAY).

 

 

antapokrisi(P1,Y,P2):-apeuthias_ptisi(P1,Y,AN1,AF1,COD1,DAY1),

apeuthias_ptisi(Y,P2,AN2,AF2,COD2,DAY2), AF1=<AN2, DAY1==DAY2.

 

 

path(X,Y,L2):-c2(X,Y,[X],L), reverse(L,L2).

 

c2(X,X,L,L).

c2(X,Y,L,L2):-antapokrisi(X,Z,K),not(member(Z,L)),c2(Z,Y,[Z|L],L2).

 

το αποτελεσμα που παιρνω δν βγαζει την ενδιαμεση πολη δλδ την ανταποκριση. Μπορει να βοηθησει καποιος?