Mathematica
Mathematica
Datos personales
apache Flex
jueves, 8 de marzo de 2012
PROLOG: Interseccion entre dos listas
23:41 | 
Publicado por
a8a
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
