Удаление одинаковых структур из списка - Prolog

Формулировка задачи:

Здравствуйте. В процессе решения задачи столкнулся с проблемой. На неком шаге получают результат следующего вида:

                    Листинг программы
                
[ответ("с",[1,2,1]),ответ("с",[1,2,2]),ответ("с",[1,2,3]),ответ("в",[1,1,3]),ответ("в",[1,2,3]),ответ("в",[1,3,3]),ответ("в",[1,1,1]),ответ("в",[1,1,2]),ответ("в",[1,2,1]),ответ("в",[1,2,2]),ответ("в",[1,3,1]),ответ("в",[1,3,2]),ответ("а",[1,1,2]),ответ("а",[1,2,2]),ответ("а",[1,3,2]),ответ("а",[1,3,3])]

Для дальнейшего решения требуется избавиться от всех элементов, которые имеют одинаковую последовательность цифр во второй части структуры. Для примера выше выходной список будет таким:

                    Листинг программы
                
[ответ("в",[1,1,3]),ответ("в",[1,1,1]),ответ("в",[1,3,1])]

То есть, убраны, например, элементы: ответ("с",[1,2,2]) и ответ("в",[1,2,2]) - поскольку вторая половина структуры одинаковая, и другие. Повторов может быть и не 2, а больше. Подскажите, пожалуйста, возможно ли вообще такое? Дубликаты, конечно, можно удалить так:

                    Листинг программы
                
no_doubles([],[]).
no_doubles([H|Tail],NewTail):-no_doubles(Tail,NewTail),member(H,NewTail),!.
no_doubles([H|Tail],[H|NewTail]):-no_doubles(Tail,NewTail).

Но по-одному вхождению каждого элемента остается. Или удалить из списка все вхождения какого-либо элемента:

                    Листинг программы
                
delete_all(_,[],[]).
delete_all(E,[E|Tail],NewTail):-!,delete_all(E,Tail,NewTail).
delete_all(E,[H|Tail],[H|NewTail]):-delete_all(E,Tail,NewTail).

Но сначала ведь нужно знать, какой удалять, да еще и к структурам применить. Поэтому пока ступор. Буду благодарен за любую помощь. Заранее спасибо.

Решение задачи: «Удаление одинаковых структур из списка»

Листинг программы

member1(X,[X|_]).
member1(X,[_|T]):-
    member1(X,T).

Объяснение кода листинга программы

В коде представлена реализация рекурсивной функции member1, которая предназначена для проверки принадлежности элемента X к списку [X|_].
Если X присутствует в списке, то есть [X|_], функция возвращает true.
В противном случае, функция рекурсивно вызывается для проверки элемента X в оставшейся части списка [_|T].
Если X присутствует в оставшейся части списка, функция возвращает true.
В противном случае, функция возвращает false.
Код не содержит ошибок синтаксиса и логически корректен.
Примеры использования функции member1 в данном коде отсутствуют.
Данный код может быть использован для решения задачи по удалению дубликатов из списка, если поместить вызов функции member1 внутрь цикла, например, в цикле while.
Пример использования функции member1 для удаления дубликатов из списка:
Удаление дубликатов из списка можно выполнить следующим образом:
Создать пустой список, например, T.
Пройтись по исходному списку, например, A, с помощью цикла while.
Для каждого элемента X в списке A выполнить следующие действия:
Проверить, присутствует ли элемент X в списке T с помощью функции member1.
Если элемент X отсутствует в списке T, то добавить его в конец списка T.
После завершения цикла while список T будет содержать только уникальные элементы из списка A.
Данный подход имеет временную сложность O(n*m), где n - количество элементов в исходном списке A, m - количество элементов в итоговом списке T.
В данном коде не представлены какие-либо меры по оптимизации, например, использование хэш-таблицы для более быстрого поиска дубликатов.
Код может быть улучшен, например, добавлением обработки ошибок или оптимизацией алгоритма удаления дубликатов.
Однако, данный код является базовой реализацией функции member1 и примером использования этой функции для удаления дубликатов из списка.