Mathematica
Mathematica
Datos personales
apache Flex
martes, 8 de noviembre de 2011
PROLOG: Mira si una lista es sublista de otra lista
18:03 | 
Publicado por
a8a
Este programa mira si una lista es sublista de otra lista:
my_sub_list(Xs, Ys):-
my_append(_, Bs, Ys),
my_append(Xs, _, Bs).
Para ejecutar el programa:
?- my_sub_list([b,c], [a,b,c,d,e,f,g]).
Y el resultado es:
yes
Para ejecutar el programa:
?- my_sub_list([b,c,f], [a,b,c,d,e,f,g]).
Y el resultado es:
no
Para ejecutar el programa:
?- my_sub_list(Ls, [c,d,e]).
Y el resultado es:
Ls = [] ; Ls = [c] ; Ls = [c,d] ; Ls = [c,d,e] ; Ls = [] ; Ls = [d] ; Ls = [d,e] ; Ls = [] ; Ls = [e] ; Ls = [] ;
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
jueves, 3 de noviembre de 2011
PROLOG: Busca numero mayor en lista
Este programa busca en una lista de números el mayor:
my_list_max(M, [X|Xs]):-
my_list_max2(M, X, Xs).
my_list_max2(M, M, []):- !.
mylist_max2(X, Y, [Z|Zs]):-
Z >= Y,
!,
my_list_max2(X, Z, Zs).
my_list_max2(X, Y, [Z|Zs]):-
Z =< Y,
my_list_max2(X, Y, Zs).
Para ejecutar el programa:
?- my_list_max(M, [5,3,9,2,8,7]).
Y el resultado es:
M = 9
PROLOG: Busca numero menor en lista
Este programa busca en una lista de números el menor:
my_list_min(M, [X|Xs]):-
my_list_min2(M, X, Xs).
my_list_min2(M, M, []):- !.
my_list_min2(X, Y, [Z|Zs]):-
Z =< Y,
!,
my_list_min2(X, Z, Zs).
my_list_min2(X, Y, [Z|Zs]):-
Z >= Y,
my_list_min2(X, Y, Zs).
Para ejecutar el programa:
?- my_list_min(M, [5,3,9,2,8,7]).
Y el resultado es:
M = 2
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
