Mathematica
Mathematica
Datos personales
apache Flex
jueves, 1 de noviembre de 2012
PROLOG: Permutacion de una lista
1:54 | 
Publicado por
a8a
Este programa encuentra todas las permutaciones de los elementos de una lista (La permutación de un conjunto se define como cada una de las posibles ordenaciones de todos los elementos de dicho conjunto):
my_permutation(Bs, [A|As]):-
my_append(Xs, [A|Ys], Bs),
my_append(Xs, Ys, Zs),
my_permutation(Zs, As).
my_permutation([], []).
Para ejecutar el programa:
?- my_permutation([a,b,c],Ls).
Y el resultado es:
Ls = [a,b,c] Ls = [a,c,b] Ls = [b,a,c] Ls = [b,c,a] Ls = [c,a,b] Ls = [c,b,a]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
lunes, 10 de septiembre de 2012
PROLOG: Convierte lista anidada en lista no anidada
Este programa convierte una lista que contiene elementos que son listas, en una lista de elementos simples:
my_flatten(X, [X]):-
\+ list(X).
my_flatten([], []).
my_flatten([As|Bs], Cs):-
my_flatten(As, ALs),
my_flatten(Bs, BLs),
my_append(ALs, BLs, Cs).
Para ejecutar el programa:
?- my_flatten([1,7,3,4,[5,[[[6],[8]],9,7]],[[8],9],[[[0]]]], Ls).
Y el resultado es:
Ls = [1,7,3,4,5,6,8,9,7,8,9,0]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
viernes, 11 de mayo de 2012
PROLOG: Ordena lista de numeros, metodo de la burbuja
Este programa ordena una lista numérica en forma ascendente. Si quieres ordenar en forma descendente cambia la linea "B < A" por "A < B":
my_bubble_sort(Xs, Ys):-
my_append(Cs, [A,B|Ds], Xs),
B < A,
my_append(Cs, [B,A|Ds], Fs),
my_bubble_sort(Fs, Ys),
!.
my_bubble_sort(Xs, Xs).
Para ejecutar el programa:
?- my_bubble_sort([4,7,1,3,2,9,2,6], Ls).
Y el resultado es:
Ls = [1,2,2,3,4,6,7,9]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
jueves, 8 de marzo de 2012
PROLOG: Interseccion entre dos listas
Este programa encuentra la intersección de dos listas (intersección de conjuntos):
my_intersect([], _, []).
my_intersect([A|As], Bs, [A|Cs]):-
my_member(A, Bs),
!,
my_intersect(As, Bs, Cs).
my_intersect([_|As], Bs, Cs):-
my_intersect(As, Bs, Cs).
Para ejecutar el programa:
?- my_intersect([1,2,3,4], [2,3,6,7,1], Ls).
Y el resultado es:
Ls = [1,2,3]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
miércoles, 7 de marzo de 2012
PROLOG: Union entre dos listas
Este programa encuentra la unión de dos listas (unión de conjuntos):
my_union([], Cs, Cs).
my_union([A|As], Bs, Cs):-
my_member(A, Bs),
!,
my_union(As, Bs, Cs).
my_union([A|As], Bs, [A|Cs]):-
my_union(As, Bs, Cs).
Para ejecutar el programa:
?- my_union([a,b,c], [b,a,d,e,h], Ls).
Y el resultado es:
Ls = [c,b,a,d,e,h]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
