Prolog pas d'impression des instructions

Question

J'essayais ce programme palindrome en prologue, la logique fonctionne mais l'opération d'écriture ne fonctionne pas. Alors, quel est le problème dans le code?

palin (Liste1): - findrev (Liste1, [], Liste2), comparer (Liste1, Liste2).

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

Cela fonctionne pour moi. J'utilise SWI prolog. Et essayez de remplacer "avec", car avec "Something" il l'imprime sous la forme d'une liste de nombres, pas sous forme de chaîne