回文(_回文):-atom_chars(_回文,Chars),リストの反転(Chars,Chars_2),atom_chars(_回文,Chars_2).
_2),atom_chars(_回文,Chars_2