Лабораторная работа №5. Функциональное и логическое программирование. Вариант 7. ДО СибГУТИ.

Задание.
Преобразуйте текстовый файл, состоящий из нескольких строк, таким образом, чтобы все символы в каждой строке разделялись одним пробелом
Решение:
Считываем все строки из файла и заносим их в список.
Печатаем список с помощью предиката print так:
печатаем первый элемент с помощью предиката printstr, рекурсивно вызываем print для хвоста, пока он не пуст.
Предикат printstr принимает два параметра: первый (S) – часть строки, второй (SNew) – преобразованная часть строки.
Запись производится в тот же файл. Имя файла вводится с клавиатуры.

Листинг программы
domains
 file = f
 list = string*
predicates
 open_file(string)
 rewrite_file(string)
 create_list(string, list)
 printstr(string, string)
 print(list)
clauses
 open_file(FileName) :- existfile(FileName), !, openread(f, FileName), readdevice(f).
..........................

Проверил: Галкина М.Ю.
Оценка:"Отлично!"
Без замечаний!
Год сдачи 2013.