schreiben prolog-Anweisung mit der not-operator

Habe ich Prolog-Aussagen wie diese

verb('part_of-8').
noun('doctor_investigation_system-2').
noun('dis-4').
berelation('be-6').
verb('be-6').
noun('hospital_information_system-11').
noun('his-13').
rel('part_of-8', 'doctor_investigation_system-2').
rel('doctor_investigation_system-2', 'dis-4').
rel('part_of-8', 'be-6').
rel('part_of-8', 'hospital_information_system-11').
rel('hospital_information_system-11', 'his-13').

associatedWith(X,Y,Z) :-
   verb(Y),
   noun(X),
   noun(Z),
   X\=Y, Y\=Z, Z\=X,
   rel(X,Y), rel(Y,Z),
   not(beralation(X)), not(beralation(Z)), not(beralation(Y)).

mein Ziel ist associationWith(X,Y,Z), wobei X, Y, Z ist nicht ein "sein" Begriff(berelation), aber die obige Regel, die ich geschrieben habe nicht funktioniert, was zu tun ist, damit es funktioniert

InformationsquelleAutor karthi | 2010-10-03

  1. 9

    Ich glaube, du bist auf der Suche für \+ "ist nicht beweisbar" - operator

    Also:

    associatedWith(X,Y,Z) :-
  verb(Y),
  noun(X),
  noun(Z),
  X\=Y,
  Y\=Z,
  Z\=X,
  rel(X,Y),
  rel(Y,Z),
  \+ beralation(X),
  \+ beralation(Z),
  \+ beralation(Y).

    Gibt es eine andere Möglichkeit (ohne \+ mit ! "cut" - operator):

    associatedWith(X,_,_) :-
  berelation(X), !, fail.
associatedWith(_,Y,_) :-
  berelation(Y), !, fail.
associatedWith(_,_,Z) :-
  berelation(Z), !, fail.
associatedWith(X,Y,Z) :-
  verb(Y),
  noun(X),
  noun(Z),
  X\=Y,
  Y\=Z,
  Z\=X,
  rel(X,Y),
  rel(Y,Z).

    InformationsquelleAutor Amadan

Schreibe einen Kommentar