PROLOG：「語法錯誤：操作員期望」

我找不出這個代碼中有什麼問題。請幫助我。我得到這個錯誤：PROLOG：「語法錯誤：操作員期望」

ERROR: c:/users/ahmed/downloads/test.pl:2:4: Syntax error: Operator expected 
% c:/Users/Ahmed/Downloads/test.pl compiled 0.00 sec, 21 clauses

下面是代碼：

domains 
disease,indication = symbol 
Patient,name = string 

predicates 
hypothesis(string,disease) 
symptom(name,indication) 
response(char) 
go 

clauses 
go :- 
    write("What is the patient's name? "), 
    readln(Patient), 
    hypothesis(Patient,Disease), 
    write(Patient,"probably has ",Disease,"."),nl. 

go :- 
    write("Sorry, I don't seem to be able to"),nl, 
    write("diagnose the disease."),nl. 

symptom(Patient,fever) :- 
    write("Does ",Patient," have a fever (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,rash) :- 
    write("Does ",Patient," have a rash (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,headache) :- 
    write("Does ",Patient," have a headache (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,runny_nose) :- 
    write("Does ",Patient," have a runny_nose (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,conjunctivitis) :- 
    write("Does ",Patient," have a conjunctivitis (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,cough) :- 
    write("Does ",Patient," have a cough (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,body_ache) :- 
    write("Does ",Patient," have a body_ache (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,chills) :- 
    write("Does ",Patient," have a chills (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,sore_throat) :- 
    write("Does ",Patient," have a sore_throat (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,sneezing) :- 
    write("Does ",Patient," have a sneezing (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

symptom(Patient,swollen_glands) :- 
    write("Does ",Patient," have a swollen_glands (y/n) ?"), 
    response(Reply), 
    Reply='y'. 

hypothesis(Patient,measles) :- 
    symptom(Patient,fever), 
    symptom(Patient,cough), 
    symptom(Patient,conjunctivitis), 
    symptom(Patient,runny_nose), 
    symptom(Patient,rash). 

hypothesis(Patient,german_measles) :- 
    symptom(Patient,fever), 
    symptom(Patient,headache), 
    symptom(Patient,runny_nose), 
    symptom(Patient,rash). 

hypothesis(Patient,flu) :- 
    symptom(Patient,fever), 
    symptom(Patient,headache), 
    symptom(Patient,body_ache), 
    symptom(Patient,conjunctivitis), 
    symptom(Patient,chills), 
    symptom(Patient,sore_throat), 
    symptom(Patient,runny_nose), 
    symptom(Patient,cough). 

hypothesis(Patient,common_cold) :- 
    symptom(Patient,headache), 
    symptom(Patient,sneezing), 
    symptom(Patient,sore_throat), 
    symptom(Patient,runny_nose), 
    symptom(Patient,chills). 

hypothesis(Patient,mumps) :- 
    symptom(Patient,fever), 
    symptom(Patient,swollen_glands). 

hypothesis(Patient,chicken_pox) :- 
    symptom(Patient,fever), 
    symptom(Patient,chills), 
    symptom(Patient,body_ache), 
    symptom(Patient,rash). 

hypothesis(Patient,measles) :- 
    symptom(Patient,cough), 
    symptom(Patient,sneezing), 
    symptom(Patient,runny_nose). 

response(Reply) :- 
    readchar(Reply), 
    write(Reply),nl.

來源

2013-05-09 Ahmed Fouda

您正在使用SWI-Prolog的，隨後愛丁堡語法。代碼看起來像Visual Prolog的代碼，它遵循不同的語法規則。如果您想在SWI-Prolog下運行它，則需要將代碼移植到Edingburgh語法。否則，您可以安裝Visual Prolog並在其中運行代碼。

來源

2013-05-09 23:53:24 liori

同意。我建議刪除文件頂部的前11行（通過「子句」），看看有什麼結果。 – 2013-05-09 23:57:55

試圖刪除前11行。得到這個錯誤錯誤：c：/users/ahmed/downloads/test.pl：2：在子句體內完全停止？無法重新定義，/ 2 ％c：/Users/Ahmed/Downloads/test.pl編譯0.00秒，21條款 – 2013-05-10 00:07:59

@AhmedFouda：看起來你不太瞭解prolog。如果您需要使用Visual Prolog源代碼，那麼下載Visual Prolog會更好 - 它可以免費供個人使用。見http://www.visual-prolog.com/vip6/product/default.htm – liori 2013-05-10 00:14:46

能夠運行在SWI-Prolog的代碼，這樣你可以更換開始行（直到go :- ...）：

:- redefine_system_predicate(write(_)). 
:- redefine_system_predicate(readln(_)). 

write(S) :- 
    is_list(S) -> format('~s', [S]) ; format('~w', [S]). 
write(A,B,C,D) :- 
    maplist(write, [A,B,C,D]). 
write(A,B,C) :- 
    maplist(write, [A,B,C]). 
readchar(S) :- 
    get(C), atom_codes(S, [C]). 
readln(A) :- 
    system:readln(L), atomic_list_concat(L,' ',A). 

go :- 
    ...

那些 '適配器' 謂詞

後

?- go. 
What is the patient's name? Carlo 
Does Carlo have a fever (y/n) ?y 
y 
Does Carlo have a cough (y/n) ?|: y 
y 
Does Carlo have a conjunctivitis (y/n) ?|: y 
y 
Does Carlo have a runny_nose (y/n) ?|: y 
y 
Does Carlo have a rash (y/n) ?|: y 
y 
Carloprobably has measles. 
true .

現在該知道什麼是麻疹。去維基百科... :)

來源

2013-05-10 07:03:32 CapelliC

PROLOG：「語法錯誤：操作員期望」

回答

相關問題