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.
Suscribirse a:
Enviar comentarios (Atom)
Wolfram Programming Lab
0 comentarios:
Publicar un comentario