9 lines
264 B
Prolog
9 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).
|