序言没有打印报告

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"，它会将其打印为数字列表，而不是字符串。