Удалить символы одной строки из другой строки - Prolog
Формулировка задачи:
Необходимо ввести 2 символьные строки. Удалить из первой строки все символы, содержащиеся во второй строке. На Turbo Prolog.
Решение задачи: «Удалить символы одной строки из другой строки»
textual
Листинг программы
predicates
del_sym(string,char,string)
str_diff(string,string,string)
clauses
del_sym("",_,"").
del_sym(S,C,R) :- frontchar(S,C,X), del_sym(X,C,R).
del_sym(S,C,R) :- frontchar(S,U,X), C<>U, del_sym(X,C,R1), frontchar(R,U,R1).
str_diff("",_,"").
str_diff(X,"",X).
str_diff(X,D,Y) :- frontchar(D,A,DD), del_sym(X,A,XX), str_diff(XX,DD,Y).