Лабораторная работа №3
.docxМИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ КЫРГЫЗСКОЙ РЕСПУБЛИКИ
КЫРГЫЗСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
УНИВЕРСИТЕТ ИМ. И. РАЗЗАКОВА
Лабораторная работа
Бишкек 2021
Лабораторная работа №3
Вариант №7
Удалить из символьного списка подряд идущие последовательности символов.
Листинг кода:
domains
list = String*
predicates
pack_list(list, list)
clauses
pack_list([], []):-!.
pack_list([Head], [Head]):-!.
pack_list([Head, Head|Tail], Packed):-
!, pack_list([Head|Tail], Packed).
pack_list([Head|Tail], [Head|PackedTail]):-
pack_list(Tail, PackedTail).
goal
pack_list([u,t,r,e,n,n,a,y,a, v,a,n,n,a, r,o,s,a], X).
Фото результат:
Было написано посимвольно такие слова как utrennaya, vanna, rosa. В результате подряд идущие символы удалены как по условию задачи.