Mathematica
Mathematica
Datos personales
apache Flex
sábado, 14 de mayo de 2011
PROLOG: Elemento N de una lista (versión 2)
21:55 | 
Publicado por
a8a
Este programa devuelve el elemento en la posición N de una lista:
my_n_element([Y|_], N, N, Y).
my_n_element([_|Xs], I, N, Y):-
I2 is I + 1,
my_n_element(Xs, I2, N, Y).
Para ejecutar el programa:
?- my_n_element([m,j,k,e,w], 1, 3, X).
Y el resultado es:
X = k
PROLOG: Elemento N de una lista
Este programa devuelve el elemento en la posición N de una lista:
my_n_element([Y|_], 1, Y).
my_n_element([_|Xs], N, Y):-
N2 is N - 1,
my_n_element(Xs, N2, Y).
Para ejecutar el programa:
?- my_n_element([m,j,k,e,w], 3, X).
Y el resultado es:
X = k
PROLOG: Borra un elemento de una lista
Este programa elimina un elemento en una lista. Si el elemento a borrar existe en la lista mas de una vez, se obtendrán varias respuestas (por backtraking) y en cada una solo se eliminara un elemento:
my_remove_one_element(X, [X|Xs], Xs).
my_remove_one_element(X, [Y|Ys], [Y|Zs]):-
my_remove_one_element(X, Ys, Zs).
Para ejecutar el programa:
?- my_remove_one_element(b, [a,b,c,b,e,b,f,g], Zs).
Y el resultado es:
Zs = [a,c,b,e,b,f,g]
Zs = [a,b,c,e,b,f,g]
Zs = [a,b,c,b,e,f,g]
Para ejecutar el programa:
?- my_remove_one_element(b, Ys, [a,c,e]).
Y el resultado es:
Ys = [b,a,c,e]
Ys = [a,b,c,e]
Ys = [a,c,b,e]
Ys = [a,c,e,b]
jueves, 12 de mayo de 2011
PROLOG: Ultimo elemento de una lista (versión 2)
Este programa devuelve el último elemento de una lista:
my_last_element(Xs, X):-
my_append(_, [X], Xs).
Para ejecutar el programa:
?- my_last_element([m,j,k,e,w], X).
Y el resultado es:
X = w
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
PROLOG: Ultimo elemento de una lista
Este programa devuelve el último elemento de una lista:
my_last_element([Y], Y).
my_last_element([_|Xs], Y):-
my_last_element(Xs, Y).
Para ejecutar el programa:
?- my_last_element([m,j,k,e,w], X).
Y el resultado es:
X = w
PROLOG: Primer elemento de una lista
Este programa devuelve el primer elemento de una lista:
my_first_element([X|_], X).
Para ejecutar el programa:
?- my_first_element([m,j,k,e,w], X).
Y el resultado es:
X = m
lunes, 9 de mayo de 2011
PROLOG: Invierte una lista
Este programa invierte una lista:
my_reverse([], Zs, Zs).
my_reverse([X|Xs], Ys, Zs):-
my_reverse(Xs, [X|Ys], Zs).
Para ejecutar el programa:
?- my_reverse([1,2,3,4,5], [], Ls).
Y el resultado es:
Ls = [5,4,3,2,1]
Nota: Algunas versiones de Prolog, como WinProlog, tienen la función REVERSE predefinida.
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
