8 lines
264 B
Prolog
8 lines
264 B
Prolog
palindrome(Word) :- name(Word,List), reverse(List,List).
|
|
|
|
:- begin_tests(palindrome).
|
|
|
|
test(valid_palindrome) :- palindrome('ingirumimusnocteetconsumimurigni').
|
|
test(invalid_palindrome, [fail]) :- palindrome('this is not a palindrome').
|
|
|
|
:- end_tests(palindrome).
|