Permutações em Prolog:

Esse é um código em Prolog que o Wladimir Araujo passou na cadeira de IA.

select(X, [X|Xs], Xs).
select(X, [Y|Ys], [Y|Zs]) :- select(X, Ys, Zs).
 
permutar([], []).
permutar(Xs, [Z|Zs]) :-
    select(Z, Xs, Ys),
    permutar(Ys, Zs).

Permutações em Python:
Esse é um código de um certo Michael Davies que eu tirei daqui. Ele gera uma lista com todas as permutações de uma lista. Muito bonitinho. :)

def all_perms(str):
    if len(str) <=1:
        yield str
    else:
        for perm in all_perms(str[1:]):
            for i in range(len(perm)+1):
                yield perm[:i] + str[0:1] + perm[i:]

Um exemplo de uso:

>>> for p in all_perms(['a','b','c']):
	print p
['a', 'b', 'c']
['b', 'a', 'c']
['b', 'c', 'a']
['a', 'c', 'b']
['c', 'a', 'b']
['c', 'b', 'a']

Outras implementações:
Em outras linguagens o código para gerar permutações geralmente é muito grande, então eu preferi deixar alguns links.

• Permutações em C
• Permutações em Java
• Permutações em Ruby

% Fatos.
homer.
marge.
bart.
lisa.
maggie.
mona.
jacqueline.
patty.
abraham.
clancy.
hugo.
louise.
herb.
 
mulher(marge).
mulher(maggie).
mulher(lisa).
mulher(mona).
mulher(clancy).
mulher(jacqueline).
mulher(selma).
mulher(patty).
mulher(louise).
 
homem(homer).
homem(bart).
homem(abraham).
homem(clancy).
homem(hugo).
homem(herb).
 
progenitor(homer,bart).
progenitor(homer,lisa).
progenitor(homer,maggie).
progenitor(marge,bart).
progenitor(marge,lisa).
progenitor(marge,maggie).
 
progenitor(abraham, homer).
progenitor(mona, homer).
 
progenitor(clancy, marge).
progenitor(clancy, patty).
progenitor(clancy, selma).
progenitor(jacqueline, marge).
progenitor(jacqueline, patty).
progenitor(jacqueline, selma).
 
progenitor(abraham, herb).
 
progenitor(herb, hugo).
progenitor(louise, hugo).
 
% Regras
pai(A,B) :- homem(A), progenitor(A,B).
mãe(A,B) :- mulher(A), progenitor(A,B).
 
é_pai(A) :- pai(A,_).
é_mãe(A) :- mãe(A,_).
 
filho(A,B):- homem(A), progenitor(B,A).
filha(A,B):- mulher(A), progenitor(B,A).
 
irmaos(X,Y) :-
	progenitor(Z,X),
	progenitor(Z,Y),
	X\=Y.
 
irmao_completos(A,B) :-
	pai(P,A), pai(P,B),
	mãe(M,A), mãe(M,B),
	A\=B.
 
tio(T,A) :-
	homem(T),
	irmaos(T,X), progenitor(X,A).
 
tia(T,A) :-
	mulher(T),
	irmaos(T,X), progenitor(X,A).
 
primo(A,B) :-
	homem(A),
	progenitor(X,A),
	progenitor(Y,B),
	irmaos(X,Y).
 
prima(A,B) :-
	mulher(A),
	progenitor(X,A),
	progenitor(Y,B),
	irmaos(X,Y).
 
avô(A,B) :- pai(A,X), pai(X,B).
avó(A,B) :- pai(A,X), pai(X,B).

Referências:

• Simpsons Family
• Genealogy Database, Guide to Prolog Programming

Instalação e Uso

No Ubuntu há duas implementações de prolog disponíveis, a gprolog e a swi-prolog. Eu vou ficar com o swi-prolog que é um interpretador de prolog. Para instala-lo:

sudo apt-get install swi-prolog

Isso vai instalar o binário swipl que é o interpretador de Prolog.

Exemplo 1 – Fatorial

Crie um arquivo chamado fatorial.pl com esse conteúdo:

factorial(0,1). 

factorial(N,F) :-
   N>0,
   N1 is N-1,
   factorial(N1,F1),
   F is N * F1.

Estando na mesma pasta do arquivo, chame o interpretador swipl:

$ swipl
Welcome to SWI-Prolog (Multi-threaded, Version 5.6.14)
Copyright (c) 1990-2006 University of Amsterdam.
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
and you are welcome to redistribute it under certain conditions.
Please visit http://www.swi-prolog.org for details.

For help, use ?- help(Topic). or ?- apropos(Word).

?- ['fatorial.pl'].
% fatorial.pl compiled 0.00 sec, 760 bytes

Yes
?-

O comando ['arquivo.pl']. (com ponto) vai carregar e interpretar um arquivo chamado arquivo.pl. Algumas “perguntas” que podemos fazer ao programa:

?- fatorial(0,1).
Yes
?- fatorial(10,What).
What = 3628800
Yes

As perguntas feitas foram:

• Fatorial de 0 é 1?
• Quanto é o fatorial de 10?

Exemplo 2 – Torres de Hanoi

O famoso problema das Torres de Hanoi. Num arquivo chamado hanoi.pl escreva:

move(1,X,Y,_) :-
    write('Move top disk from '),
    write(X),
    write(' to '),
    write(Y),
    nl.
move(N,X,Y,Z) :-
    N>1,
    M is N-1,
    move(M,X,Z,Y),
    move(1,X,Y,_),
    move(M,Z,Y,X).

Carregando o programa com ['hanoi.pl']. dentro do swipl podemos fazer o teste:

?- move(3,left,right,center).
Move top disk from left to right
Move top disk from left to center
Move top disk from right to center
Move top disk from left to right
Move top disk from center to left
Move top disk from center to right
Move top disk from left to right

yes

Exemplo 3 – Grafo

Suponha o seguinte grafo que será representado no código-fonte:

edge(1,2).
edge(1,4).
edge(1,3).
edge(2,3).
edge(2,5).
edge(3,4).
edge(3,5).
edge(4,5).

connected(X,Y) :- edge(X,Y) ; edge(Y,X).

path(A,B,Path) :-
       travel(A,B,[A],Q),
       reverse(Q,Path).

travel(A,B,P,[B|P]) :-
       connected(A,B).
travel(A,B,Visited,Path) :-
       connected(A,C),
       C \== B,
       \+member(C,Visited),
       travel(C,B,[C|Visited],Path).

Vamos perguntar qual o caminho entre 1 e 5:

?- path(1,5,W).
W = [1, 2, 5]
Yes

De onde veio e para onde vai o caminho 1, 2, 5, 4.

?- path(DE, PARA, [1,2,5,4]).
DE = 1
PARA = 4
Yes

Referencias

• http://www.csupomona.edu/~jrfisher/www/prolog_tutorial/contents.html
• http://en.wikipedia.org/wiki/Prolog