Описание слайда:
Полный текст процедуры delrepeat
delrepeat(S,SF):-delrep(S,[ ],SF).
delrep([ ],S,S).
delrep([H|T],S1,SF):-member(H,T),!,
delrep(T,S1,SF).
delrep([H|T],S1,SF):-append(S1,[H],S2),
delrep(T,S2,SF).
member(X,[X|_]).
member(X,[Y|T]):-member(X,T).
append([],X,X).
append([H|T1],X,[H|T2]):-append(T1,X,T2).