put( С)

где С - символ, который нужно вывести, в кодировке ASCII (число от 0 до 127), например, вопрос

        ?- put( 65), put( 66), put( 67).

породит следующий вывод:

        АВС

65 - ASCII-код 'А', 66 - 'В', 67 - 'С'.

        get0( С)

        get( С)

вызовет пропуск всех непечатаемых символов (в частности пробелов) от текущей позиции во входном потоке до первого печатаемого символа. Этот символ затем тоже считывается и С конкретизируется его ASCII-кодом.

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

        Робот    пытался     налить    вина    из     бутылки.

Цель сжатие выведет его в таком виде:

        Робот пытался налить вина из бутылки.

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

        сжатие :-
                get0( С),
                put( С).
                сделатьостальное( С).

        сделатьостальное( 46) :-  !.
                                    % 46 -АSСII-код точки, Все сделано

        сделатьостальное( 32) :-  !,
                                    % 32 - ASCII-код пробела

                get( С),
                put( С),
                сделатьостальное( С).

        сделатьостальное( Буква) :-
                сжатие.

Упражнение

6. 3.    Обобщите процедуру сжатие на случай запятых. Все пробелы, стоящие непосредственно перед запятой, нужно убрать, а после каждой запятой нужно поместить единственный пробел.