SWI пролог, соответствующие данные - PullRequest
0 голосов
/ 08 сентября 2011

это мой исходный код, может кто-нибудь сказать мне, что является ошибкой, и Ват - лучший способ сделать это, я хочу показать, кто соответствует, кто ... может кто-нибудь помочь мне?

   % Author:
   % Date: 08-Sep-11
   person(may,female,25,blue).
   person(john,male,30,blue).
   match:-person(Fn,'female',Fage,Fatt),
          person(Mn,'male',Mage,Matt),
          Fage<=Mage,
          Fatt=Matt,
           write(Fn ,'-- match with----',Mn).


   error message :55 ?- match.
                        ERROR: Undefined procedure: match/0
                        ERROR:     However, there are definitions for:
                        ERROR:         catch/3
                        false.

1 Ответ

0 голосов
/ 02 декабря 2011
match :-
    person(Fn,female,Fage,Fatt),
    person(Mn,male,Mage,Matt),
    Fage =< Mage,
    Fatt = Matt,
    format('~w~s~w~n',[Fn ,'-- match with----',Mn]).
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...