Βοηθεια σε prolog

Γενικά θέματα για τις γλώσσες προγραμματισμού που δεν καλύπτονται από τις άλλες περιοχές της κατηγορίας.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
1Q1Q1Q
Δημοσιεύσεις: 25
Εγγραφή: 08 Ιαν 2010 13:37

Βοηθεια σε prolog

Δημοσίευση από 1Q1Q1Q » 29 Δεκ 2010 22:22

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

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).
το αποτελεσμα που παιρνω δν βγαζει την ενδιαμεση πολη δλδ την ανταποκριση. Μπορει να βοηθησει καποιος?

Απάντηση

Επιστροφή στο “γλώσσες προγραμματισμού - γενικά”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες