Масленникова О.Е., Попова И.В. Основы искусственного интеллекта
Подождите немного. Документ загружается.
- 281 -
добавим единицу, если первый символ – цифра, и ноль, если первый символ
– не цифра.
Пролог-программа:
dig(C,1):–
‗0‘<=C,C<=‘9‘,!. /* C — цифра*/
dig(_,0).
count_digit("",0):–!. /* В пустой строке цифр нет */
count_digit(S,N):–
frontchar(S,C,S2),
/* C — первый символ строки S,
S2 — хвост строки S */
dig(C,M), /* M равен единице, если C —
цифра, и нулю — иначе */
count_digit(S2,N2),
/* N2 — количество цифр
в строке S2*/
N=N2+M. /* Количество цифр во всей
строке больше на единицу,
чем количество цифр
в хвосте, если первый символ
строки — цифра, и равно
количеству цифр в хвосте —
иначе */
- 282 -
Учебное издание
Масленникова Ольга Евгеньевна
Попова Ирина Викторовна
ОСНОВЫ ИСКУСТВЕННОГО ИНТЕЛЛЕКТА
Учебное пособие
Редактор И.В. Мирошникова
Регистрационный №749 от 25.12.2008. Подписано в печать 25.12.08 г.
Формат 60x84 1/16. Бумага тип № 1. Печать офсетная.
Усл. печ. л. 16,4. Уч.-изд. л. 15,7. Тираж 500 экз. Заказ № 749.
Цена свободная
Издательство Магнитогорского государственного университета
455038, г. Магнитогорск, пр. Ленина, 114
Типография МаГУ