Для этого вы можете использовать sub_atom .sub_atom извлекает часть атома.Синтаксис:
sub_atom(+Atom, ?Before, ?Len, ?After, ?Sub)
Атом - начальный атом;Суб-податом.Извлечение работает так:
<************************ Atom ************************>
<***** Prefix *****><***** Sub *****><**** Suffix *****>
<-- before chars --><-- len chars --><-- after chars -->
Например, чтобы извлечь последний символ:
?- sub_atom(likes, _, 1, 0, S).
S = s.
Например, чтобы извлечь все символы, кроме последнего:
?- sub_atom(likes, 0, _, 1, S).
S = like.