序言沒有打印報告

Question

我正在嘗試這個迴文序程序，邏輯工作，但寫操作不起作用。那麼代碼中的問題是什麼？ （列表1，列表1）： - findrev（列表1，[]，列表2）， 比較（列表1，列表2）。

findrev([],List1,List1). 

findrev([X|Tail],List1,List2):- 
    findrev(Tail,[X|List1],List2). 

compare([],[]):- 
    write("\nList is Palindrome"). 

compare([X|List1],[X|List2]):- 
    compare(List1,List2). 

compare([X|List1],[Y|List2]):- 
    write("\nList is not Palindrome"). 

Answer 1

它適合我。我使用SWI prolog。並嘗試替換「與」，因爲使用"Something"，它會將其打印爲數字列表，而不是字符串。