![>](style_images/1/nav_m.gif)
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.119.166.31] |
![]() |
|
Сообщ.
#1
,
|
|
|
Здравствуйте. Подскажите пожалуйста как сделать вот эту программу так, чтобы она работала с файлами. Т.е. брала исходную строку из файла и записывала результат в другой файл.
Условие: Используя Пролог, напишите программу для работы с входным файлом – чтение строк(-и). В итоговый файл должен быть записан результат решения. Создайте предикат, удаляющий из данной строки все повторные вхождения символов. ![]() ![]() domains str=string strl=str* predicates remall(char,str,str) task(str,str) clauses remall(_,"",""). remall(C,S,R) :- frontchar(S,C,RS), remall(C,RS,R),!. remall(C,S,R) :- frontchar(S,Q,RS), remall(C,RS,RR), frontchar(R,Q,RR). task("",""). task(S,R) :- frontchar(S,A,RS), remall(A,RS,RRS), task(RRS,RR), frontchar(R,A,RR). Заранее спасибо. |