Программирование на языке ПРОЛОГ для искуственного интеллекта




Обработка символов - часть 2


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

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

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

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

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

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




Содержание  Назад  Вперед