Arity Prolog. Вычеркнуть все буквы "о", стоящие в слове Х на четных местах

@karina_21 · Регистрация: 21.10.2014

Author24 — интернет-сервис помощи студентам

Arity Prolog.
программа вычеркивания всех букв <<о>>, стоящих в слове Х на ченых местах. Помогите решить, на этой теме отболела и ни как не решить.

@Black Fregat · 22.10.2014, 16:20

Например, так:

Prolog

process(X, X) :-
    string_length(X, L), 
    L<2.
process(X, Y) :-
    substring(X, 1, 1, 'О'),
    !,
    substring(X, 0, 1, H),
    string_length(X, L), 
    TL is L-2,
    substring(X, 2, TL, T),
    process(T, Z),
    concat(H, Z, Y).
process(X, Y) :-
    substring(X, 0, 2, H),
    string_length(X, L), 
    TL is L-2,
    substring(X, 2, TL, T),
    process(T, Z),
    concat(H, Z, Y).

@karina_21 · 22.10.2014, 22:10 **[ТС]**

я наверно что-то не так понимаю,впринципе мне не очень понятен ход выполнения программы,но в таком виде как я ее сделала она у меня не работает.

Prolog

run:- write('Введите строку...'), nl, read_line(0,X), nl, 
      write('Введенная строка*...'), write(X), nl, process(X,X).
      
process(X,X):- string_length(X,L), L < 2.
 
process(X,Y):- substring(X,1,1,'®'), !, substring(X,0,1,H), 
               string_length(X,L), TL is L-2, substring(X,2,TL,T),
               process(T,Z), concat(H,Z,Y).
               
process(X,Y):- substring(X,0,2,H), string_length(X,L), TL is L-2,
               substring(X,2,TL,T), process(T,Z), concat(H,Z,Y), write(Y).

@Black Fregat · 22.10.2014, 23:25

1) В строке 6 должен быть литерал 'O' - так и стоит? Что там за странный символ?
2) Не работает - это как? Не запускается, выдает неверный результат?

@karina_21 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 4
		1
	Arity Prolog. Вычеркнуть все буквы "о", стоящие в слове Х на четных местах 21.10.2014, 21:16. Показов 1098. Ответов 3 Метки нет (Все метки) Arity Prolog. программа вычеркивания всех букв <<о>>, стоящих в слове Х на ченых местах. Помогите решить, на этой теме отболела и ни как не решить. 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	22.10.2014, 23:25	4
	1) В строке 6 должен быть литерал 'O' - так и стоит? Что там за странный символ? 2) Не работает - это как? Не запускается, выдает неверный результат? 0