Anagrame

Cod Sursa PROLOG

 

% Citeste un cuvant de la utilizator si afiseaza anagramele.
member(X,[X|_]).
member(X,[_|T]):-member(X,T).
adaug(X,L,[X|L]).
adaug(X,[L|H],[L|R]):-adaug(X,H,R).
permut([],[]).
permut([L|H],R):-permut(H,R1),adaug(L,R1,R).
anagrame:-write(‘Dati un cuvant=’),read(X),nl,
name(X,L),permut(L,R),
name(Cuv,R),write(Cuv),tab(5),fail.

Interogări:

?- anagrame.
Dati un cuvant=mere.
mere emre erme erem mree rmee reme reem mree rmee reme
reem meer emer eemr eerm meer emer eemr eerm mere emre
erme erem
no