Вычеркнуть из слова Y те буквы, которые используются в слове Х

@Svistunov · Регистрация: 22.05.2012

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

Всем привет. Имеется прога на паскале, нужно переделать код под пролог. Условие: составьте программу, вычеркивающую из слова Y те буквы, которые используются в слове Х.
Код на паскале:

Pascal

uses crt;
var x,y:string;
    i:byte;
begin
clrscr;
writeln('Введите слово Х');
readln(x);
writeln('Введите слово Y');
readln(y);
for i:=length(y) downto 1 do
if pos(y[i],x)>0 then delete(y,i,1);
if y='' then write('Все буквы из слова Y удалены')
else write(y);
readln
end.

@Black Fregat · 24.05.2014, 14:41

Переделать - не вариант. У Пролога совсем другой подход, надо писать заново.

@Catstail · 24.05.2014, 21:26

Неуклюже, но работает:

Prolog

domains
cl=char*
 
predicates 
 
str2lst(string,cl) %% из строки список символов
lst2str(cl,string) %% из списка символов строку
lstdiff(cl,cl,cl)    %% разность списков
inlist(char,cl)     %% символ входит в список
 
task(string,string,string) 
 
clauses
 
str2lst("",[]).
str2lst(S,[H|T]) :- frontchar(S,H,ST), str2lst(ST,T).
 
lst2str([],"").
lst2str([H|T],S) :- lst2str(T,Q), str_char(Z,H), concat(Z,Q,S).
 
inlist(_,[]) :- fail.
inlist(H,[H|_]).
inlist(H,[_|T]) :- inlist(H,T).
 
lstdiff([],_,[]).
lstdiff(N,[],N).
lstdiff([H|S],N,[H|Q]) :- lstdiff(S,N,Q), not(inlist(H,N)).
lstdiff([H|S],N,Q) :- lstdiff(S,N,Q), inlist(H,N). 
 
task(S1,S2,S3) :- str2lst(S1,L1), str2lst(S2,L2), lstdiff(L1,L2,L3), lst2str(L3,S3).

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	24.05.2014, 14:41	2
	Переделать - не вариант. У Пролога совсем другой подход, надо писать заново. 0

Опции темы