10 lines
181 B
Prolog
10 lines
181 B
Prolog
palindrome --> [].
|
|
palindrome --> [_].
|
|
palindrome --> [X], palindrome, [X].
|
|
|
|
:- initialization(main).
|
|
|
|
main :-
|
|
string_chars("hellolleh", Chars),
|
|
phrase(palindrome, Chars).
|
|
|