Лифп / Лабораторная работа №3 Списки

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ КЫРГЫЗСКОЙ РЕСПУБЛИКИ

КЫРГЫЗСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ ИМ. И. РАЗЗАКОВА

Лабораторная работа

Бишкек 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. В результате подряд идущие символы удалены как по условию задачи.